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1.0 Gerereal information 


The CZAAFAO diagnostic provides a series of tests to verify the 
integrity and functionality of the AAFO1-A Analogue Output 
module. This diagnostic can be used by field service for 
functional testing, by the engineer for design tests, and by 
manufacturing for checkout and repair. Special test procedures 
ye 4 design and manufacturing checkout are described in section 


The following special features are implemented. 


The “PRINT” command can be used to obtain a list of test titles, 
or e printout of the error statistics accumulated by the 
diagnostic. For more information, see section 4.0. 


If the evaluate flag "EVL” is set, any unit on which more than 5 
errors are detected following a “START” command is dropped from 
testing. 


The program supports up to 16 units, all selected tests being 
run on one unit before proceding to the next unit. 


This diagnostic has been written for use with the diagnostic 
runtime services software (supervisor) running under XXDP-. 
These services provide the interface to the operator and to the 
software environment. 


For a complete description of the runtime services, refer to the 


XXDP+ user’s manual. A brief description is given in section 2 
of this document. 


i.2 System requirements 


ea. PDP-11 processor with a minimum of 28k of memory. 
b. Console terminal with interface address 777560. 
c. XXDP+ load device (RX,RK,RL etc.) 


d. AAFO1-A module(s) to be checked, each with a DRU11-C or 
DRQ11-C for Unibus or Q-bus respectively. 


e. Field checkout : Digital voltmeter accurate to +/- 0.01# 
and test connector 2G-MOOFA 


Manufacturing : Digital voltmeter accurate to +/- 0.01s, 
test connector 2G-MOOFA, ADFO1/DRX11-C, 
loopback cable BCOSL-xx. and oscilloscope. 


SEQ 0003 
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To run the diagnostic on a FALCON based system, a bootstrap 
program is needed in addition to the above requirements. 
This could be in the FALCON MACRO ODT rom (KXT11-A2), or on 
an MXV-11 board. 


NOTE: 

A) Once the XXDP+ media is booted, the console “BREAK” key 
should not be pressed as it may cause error messages to be 
printed. 

B) I/0 Page addresses from 160000 to 173776 are used by the 
KXT11-A2 ODT prom, so the first DRX11-C address must be 
174000 or higher. 


C) FALCON does not support vectors over 374. 


1.4 Related documents and standards 


XXDP+ User manual (CHQUS) 
AAFO1-A Option description YG-C03ZC-00 


1.5 Diagnostic hierarchy prerequisites 


Before running this diagnostic, the appropriate PDP-11 CPU, 
memory and peripheral standard diagnostics should be run to 
verify correct operation of the system. The DRU11-C OR DRQ11-C 
should also be tested using diagnostic YG-Z01TB-00. 


1.6 Execution time 


Execution times vary with the CPU type. The following times 
are typicel for one pass with one module on a PDP-11/23 using 
defaults for all input parameters : 

Default tests (excluding calibration) : 45 seconds 

Loopback test using ADFO1 : 10 seconds 


Loopback test using IEX11-A : 3 minutes, 35 seconds 


SEQ 0004 
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2.0 Operating instructions 


This section contains a brief description of the runtime 
services. for detailed information, refer to the XXDP+ user's 
manuel (CHQUS). 


2.1 Commands 


There are eleven legal commands for the diagnostic runtime 
services (supervisor). This section lists the commands and 
gives ea very brief description of them. The XXDP+ user's manual 
has more details. 


COMMAND EFFECT 

START Start the diagnostic from an initial state 

RESTART Start the diagnostic without initializing 

CONTINUE Continue at test that was interrupted (after tc) 

PROCEED Continue from an error halt 

EXIT Return to XXDP+ monitor (XXDP+ operation only!) 

ADD Activate a unit for testing (all units are 
considered to be active at start time 

DROP Deactivate a unit 

PRINT Print test titles or error statistics 

DISPLAY Type e list of all device information 

FLAGS Type the state of all flags (see section 2.3) 

ZFLAGS Clear all flags (see section 2.3) 


A command can be recognized by the first three characters. So 
you may, for example, type "STA" instead of "START". 


2.2 Switches 


wee we eee ee eee eee 


There are several switches which are used to modify supervisor 
operation. These switches are appended to the legal commands. 
All of the legal switches are tabulated below with a brief 
description of each. In the descriptions below, a decimal number 
is designated by "“ddddd”. 


SWITCH EFFECT 

/TESTS:LIST Execute only those tests specified in 
the list. list is a string of test 
numbers, for example - /tests:1:5:7-10. 
this list will cause tests 1,5,7,8,9,10 to 
be run. all other tests will not be run. 


/PASS:ddddd Execute ddddd passes (ddddd = 1 to 64000) 

/FLAGS:FLGS Set specified flags. flags are described 
in section 2.3. 

/EOP : ddddd Report end of pass message after every 
ddddd passes only. (ddddd = 1 to 64000) 

/UNITS:LIST TEST/ADD/DROP only-those units specified 


in the list. list example - /UNITS:0:5:10-12 
use units 0,5,10,11,12 Cunit numbers = 0-63) 


SEQ 0005 


ill 
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Example of switch usage: 
START/TESTS:1-5/PASS:1000/E0P: 100 


The effect of this command will be: 1) tests 1 through 5 will be 
executed, 2) all units will tested 1000 times and 3) the end of 
pass messages will be printed after each 100 passes only. A 
switch can be recognized by the first three characters. You may, 
for example, type "/TES:1-5" instead of “/TESTS:1-5". 


Below is a table that specifies which switches can be used by 
each command. 


TESTS PASS FLAGS EOP UNITS 
START x x x xX x 
RESTART x x x x x 
CONTINUE x x x 
PROCEED x 
DROP x 
ADD x 
PRINT 
DISPLAY x 
FLAGS 
ZFLAGS 
EXIT 
2.3 Flags 


Flags are used to set up certain operational parameters such as 
looping on error. All flags are cleared at startup and remain 
cleared until explicitly set using the flags switch. Flags are 
also cleared after a start command unless set using the flag 
switch. The ZFLAGS command may also be used to clear all flags. 


With the exception of the start and zflags commands, no 
commands affect the state of the flags; they remain set or 
cleared as specified by the last flag switch. 


FLAG EFFECT 

HOE Halt on error - control is returned to 
runtime services command mode 

LOE Loop on error 

IER« Inhibit all error reports 

IBE* Inhibit all error reports except 


first level (first level contains 
error type, number, pc, test and unit) 


IXE* Inhibit extended error reports (those 
called by PRINTX macros) 

PRI Direct messages to line printer 

BOE "Bell” on error 

PNT Print test number as test executes 

UAM Unattended mode (no manual intervention) 

ISR Inhibit statistical reports (not appliceble) 


SEQ 0006 
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IDR Inhibit program dropping of units (not 
required since units are only dropped if 
EVL is used) 

ADR Execute autodrop code 

LOT Loop on test 

EVL Execute evaluation ie. drop unit if more 


then 5 errors occur after m START command. 


*error messages are described ‘i: section 3.1 


See the XXDP+ user's manual for more details on flags. You may 
specify more than one flag with the flag switch. For example, 
to cause the program to loop on error, inhibit error reports 
and type a “bell” on error, you may use the following string: 


/FLAGS:LOE: IER: BOE 


2.4 Hardware questions 


When the diagnostic is started, the runtime services will prompt 
the user for hardware information by typing “CHANGE HW (L) ?” 


To run the diagnostic with more than one module or with a module 
at an address other than the default, you must answer "Y" to the 
"CHANGE HARDWARE” question. The runtime services will then ask 
for the number of units Cin decimal). To keep down memory 
requirements, the maximum number of units supported is 16. You 
will then be asked the following questions for each unit: 


DRX11-C ADDRESS (0) 164200 ? 


In reply, you should enter an address in octal in the range 
160000 to 17777v. 


DRX11-C VECTOR ADDRESS (0) 270 ? 


The following illustrates the response to the hardware 
questions. In this example, the user response is underlined :- 


CHANGE HARDWARE (L) ? Y <er> 
@UNITS (D) 22 <cr> 
“—s6UC<CO~*ti‘S 

DRX11-C ADDRESS (0) 164200 ? 164400 <ecr> 


DRX11-C VECTOR ADDRESS (0) 270 ? 310 <cr> 


UNIT 1 
DRX11-C ADDRESS (0) 164400 ? 164600 <cr> 


DRX11-C VECTOR ADDRESS (0) 310 ? 320 <cr> 


SEQ 0907 
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In this example, two AAFO1-A'’s using DRX11-C's at addresses 
164400 and 164600 will be tested. 


Notice that the default value for the address and vector changes 
when a non-default response is given. This is true for all of 
the hardware questions, so be careful when specifying multiple 
units! 


2.5 Software questions 


After you have answered the hardware questions or after a 
restart or continue command, the runtime services will ask for 
software parameters. These parameters govern the diagnostic 
operating modes. you will be prompted by "CHANGE SW (L) ?”. The 
normal response is to type "N”. 


Typing "Y" causes the following questions to be asked : 


FIRST CHANNEL (D) O ? 
LAST CHANNEL (D) 15 ? 


These allow the user to concentrate testing on a single channel 
or group of channels in tests 24, 25 and 26. By default, 16 
channels will be tested. The diagnostic will however accept any 
value between 0 and 63 for either question. 


CONVERSION TIME (100 NANOSEC STEPS) (D) 200 ? 


This specifies the time between conversions in steps of 100 
nanoseconds. Although the minimum working value is 25, the 
diagnostic will accept any value between 1 and 4095. This value 
is used in tests 10 to 13, and 15 to 26. 


NOTE : Small conversion times (< 50 steps) may result in error 
printouts showing the “data buffer empty” to be set in the ACS. 
These probably do not indicate a genuine error, rather than the 
DRX11-c cannot supply data to the AAFO1-A quickly enough. 


TOLERANCE IN BITS (D) 7 ? 


This value is used as the tolerance in the linearity and ADFO1 
loopback tests. In the former, the tolerance is used as the 
velue by which channels 0 and 15 differ when a data comparison 
is made. In the loopback test, values which deviate from the 
expected by more than the tolerance result in an error message. 


QUICK VERIFY MODE (L) N ? 


If the answer to this question is "Y", only one iteration of 
each test will be performed. Otherwise, some testing is done 
more than once. Repeatedly testing a piece of logic in this way 
often detects faults which a single test would not. Therefore, 
to fully test the hardware, the answer to this question should 
be "N". 


SEQ 0008 
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REGISTER DUMP AFTER EVERY ERROR (L) N ? 


Answering this question with "Y" causes a dump of the DRX11-C 
and AAFO1-A register contents each time an error is detected. 
This feature is primarily for design testing and is normally 
disabled. The format of the dump is shown in section 3.1. 


The following illustrates the response to the software 
questions. The user response is underlined : 


CHANGE SOFTWARE (L) ? Y <cr> 


TOLERANCE IN BITS (D) 2 ? 16 <cr> 


QUICK VERIFY MODE (L) N ? <ecr> 


REGISTER DUMP AFTER EVERY ERROR (L) N ? Y <cr> 


In this example, channel 2 of the AAFO1-A is being tested at the 
highest working conversion rate. Since accuracy is reduced at 
this rate, the tolerance has been increased to 16 LSB's. If an 
error occurs, a dump of the AAFO1-A and DR%11-C register 
contents will be printed. 


2.6 Extended p-table dialogue 


When you answer the hardware questions, you are building entries 
in a table that describes the devices under test. The simplest 
way to build this table is to answer all questions for each 

unit to be tested. If you are testing several identical 
devices, this becomes tedious since most of the answers are the 
same for each unit. 


To illustrate a more efficient method, suppose you are testing 
three AAFO1-A modules. You could answer the hardware questions 
for each of the three units as shown in section 2.4. However, 
the procedure can be made more efficient. 

The runtime services can take multiple unit specifications. 
Let's build an example table using the multiple specification 
feature: 

CHANGE HARDWARE (L) ? Y <er> 

#UNITS (D) ? 3 <cr> 


UNIT 0 at at 


SEQ 0009 
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DRX11-C ADDRESS (0) 164200 ? 164200,164210,164220 <cr> 


As you can see in the above dialogue, the runtime services will 
build as many entries as it can with the information given in 
any one pass through the questions. In this example, the 3 
AAFO1-A modules at addresses 164200, 164210 and 164220 are set 
up with vectors 270, 274 and 300. 


2.7 Clock questions 


If there is no line time clock on the system, the user is asked 

to type 2 characters 6 seconds apart on the console. This should 
be done as accurately as possible since the interval is used by 

the diagnostic to calculate values for device timeouts. 


2 8 Quick start-up procedure (XXDP+) 


To start-up this program: 
1. Boot XXDP-+ 
2. Give the date and answer XXDP + questions 


3. Type "R ZAAF??”. ( Normally the revision and patch 
level are typed instead of the 
question marks. The form shown 
here causes the latest version to 
be run. 


4. Type "START" 


5. For ea module using the default DRX11-C address of 764200 and 
vector 270, answer the “CHANGE HW” question with "N”. To test 
more than one module or one at a different address, type "“Y" 
and answer all of the hardware questions. 


6. Answer the “CHANGE SW” question with "N” 
When you follow this procedure you will be using only the 


defaults for the software parameters and no flags will be set. 
Flags and defaults are described in sections 2.3 to 2.5. 


SEQ 0010 
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3.0 Error information 


There are three levels of error messages that may be issued by a 
diagnostic : general, basic and extended. General error 
messages are always printed unless the "IER" flag is set 
(section 2.3). The general error message is of the form : 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


where NAME = diagnostic name 
TYPE = error type (SYS FATAL, DEV FATAL, HARD or SOFT) 
NUMBER = error number 
UNIT NUMBER = O - N (N is last unit in ptable) 
TST NUMBER = test and subtest where error occurred 
PC:XXXXXX = address of error message call 


General error messages for this diagnostic are listed together 
with the test descriptions in section 6.0. 


Basic error messages are messages that contain some additional 
information about the error. These are always printed unless 
the “IER” or “IBR” flags are set (section 2.3). These messages 
are printed after the associated general message. In this 
diagnostic, basic error messages contain information such as 
register contents or good/bad data. 


Extended error messages contain supplementary error information. 
These are always printed unless the "IER", “IBR” or “IXR" flags 
ere set (section 2.3). These messages are printed after the 
associated general error message and any associated basic error 
messages. The only extended error message in this diagnostic is 
in test 26, requesting the user to recalibrate the module if the 
loopback test fails. 


If the “REGISTER DUMP” question in the software questions is 
answered affirmatively, a register dump will be printed after 
each error message as in the following example : 


AAFO1-A ACS: xxxxxx, CTA: xxxxxx, CWR: xxxxxx 

DORX11-C SCR: xxxxxx, COR: xxxxxx, ADR: xxxxxx, DBR: xxxxxx 
BARI: xxxxxx, WCR1I:xxxxxx, BAR2:xxxxxx, WCR2:xxxxxx 
WCO: xxxxxx, ACO: xxxxxx 


SEQ@ 0011 
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4.0 Performance and progress reports 


At the end of each pass, the pass count is given along with the 
otel number of errors reported since the diagnostic was 

sterted. The "EOP" switch can be used to control how often the 

end of pass message is printed. Section 2.2 describes switches. 


4.1 Print command utilization 


The “PRINT” command can be used to find out how many errors have 
occurred on each unit since the diagnostic was started. 


In addition, the command can be used to to print a list of test 
titles. The following examples show how the print command can be 
used. User input is underlined : 


PRINT <cr> 


TYPE S, T OR HELP (S) H ? <er> 


THE FOLLOWING COMMANDS ARE ACCEPTED :- 


S - PPINT STATISTICS TABLE 
T - PRINT TEST TITLES 
TYPE S, T OR HELP (S) H ? 


If you type “H", “HELP” or any character other then “S" or "T", 
the routine prints the above help message listing the acceptable 
commands. 


PRINT <cr> 


TEST TITLES. 


ORX11-C Register NXM Test 

Reset Test 

ACS Read/write Test 

CTA Read/write Test 

Control Table Date Test 

Control Table Address Test 

COUT and SEQ CONT L Interrupt Test 
DMA to Registers Test 

DMA to Control Table Test 

10 CWR Mode O Test 

11 CWR Mode 1 Test 

12 CWR Mode 2 Test 

13 CWR Mode 3, RATE CLOCK OUT and SEQ CONT Test 
14 Programmable clock Test 

15 CWR Mode 4 Test 

16 CWR Mode 5 Test 

17 CWR Mode 6 Test 

18 CWR Mode 7 Test 


WOBNIOU Fwhe 


SEQ 0012 
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Date Buffer Empty Test 

External Clock Test 

Linearity Test 

DMA Output Comparison Test 
Memory Transfer Conversion Test 
Calibration Test 

Selectable Output Test 

Loopback Test 

Loopback Test using ADFO1 
Loopback Test using IEX11-A Interface 
Direct Read/write Test 


DR> PRINT <cr> 


AAFO1-A ERROR STATISTICS. 


UNIT 


0 
1 
2 


ERRORS DROPPED 


0 NO 
6 YES 
UNTESTED NO 


Here, unit 0 has shown no faults, unit 1 has hed 6 errors and 
been dropped from testing, and unit 2 has not yet been tested. 
Unit 2 is shown as not dropped. If the diagnostic had not yet 
been started, the unit would still not be shown as dropped 
(unlike the display command). 


ee oe eee + 


SEQ 0013 
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5.0 Device information tables 


The hardware p tables contain 2 words for each device. These are 
used to save the answers to the startup hardwere questions, and 
can be displayed on the console by using the “DISPLAY” command 
described in section 2.1. 


The hardware p teble is set up for field service for 1 unit 
with the DRX11-C address at 764200 and the vector at 270. 
These peremeters are used if the user types “NO” to the 
"CHANGE HARDWARE” question. 


Using the XXDP+ SETUP utility, the tables can be preloaded to 
contein information for specific systems. 


Si Seite PR BE natn PLO RT 
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6.0 Test summaries 


Tests are divided into 2 types - default and specifically 
selectable. Default tests ere run if no test numbers are 

entered following e start or restart command. Specific tests are 
only run if specifically selected by starting or restarting with 
the test number. 


All except tests 1, 25. 26 and 28 begin with a DRX11-C reset 
to put the module into a known state prior to testing. 


The following default tests check the functionality of the 
module and are designed for fault detection : 


Test : 1 ORX11-C Register NXM Test 

Test : 2 Reset Test 

Test : 3 ACS Read/write Test 

Test : 4 CTA Read/write Test 

Test : 5S Control Table Date Test 

Test : 6 Control Table Address Test 

Test : 7 COUT and SEQ CONT L Interrupt Test 
Test : 8 DMA to Registers Test 

Test : 9 DMA to Control Table Test 


Test : 10 CWR Mode O Test 

Test : 11 CWR Mode 1 Test 

Test : 12 CWR Mode 2 Test 

Test : 13 CWR Mode 3, RATE CLOCK OUT and SEQ CONT Test 
Test : 14 Programmable clock Test 

Test : 15 CWR Mode 4 Test 

Test : 16 CWR Mode 5 Test 

Test : 17 CWR Mode 6 Test 

Test : 18 CWR Mode 7 Test 

Test : 19 Date Buffer Empty Test 

Test : 20 External Clock Test 

Test : 2i Linearity Test 

Test : 22 DMA Output Comparison Test 

Test : 23 Memory Transfer Conversion Test 
Test : 24 Calibration Test 


The specific tests are only run if they are selected by test 
number (ie. not in sequence with other tests). 


Test : 25 Selectable Output Test 

Test : 26 Loopback Test using ADFO1] 

Test : 27 Loopback Test using IEX11-A Interface 
Test : 28 Direct Read/write Test 


Test 1 - DRX11-C Register NYM Test. 


This test checks that accessing the DRX11-C SCR, COR, ADR and 
DBR registers does not cause a NXM trap. The following error 
may be printed : 


Error 100 : DRX11-C REGISTER ADDRESSING ERROR 
REGISTER AT xxxxxx DOES NOT RESPOND 





SE@ 9015 
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This could mean that the DRX11-C address switch is incorrectly 
set, that the address was entered incorrectly in the startup 
questions, or that eae hardware fault exists in the DRX11-C 
addressing logic. This is the only test specifically for the 
DRX11-C, which should be checked separately using diagnostic 
YG-Z0O1TB-00. 


Test 2 - Reset Test. 


This test checks that the AAFO1-A ACS register is correctly set 
or reset after a DRX11-C reset and after a data system reset. 
Both are checked to complete within 1 millisecond. 


Bit 11 of the ACS register is read and a message is output to 
show whether it indicates unipolar or bipolar output mode eg. 


MODULE IS SWITCHED TO UNIPOLAR MODE. 

The following errors may be output : 

Error 200 : ACS REGISTER INCORRECT 1 MILLISECOND AFTER DRX11-C 
GOOD s01%000, BAD : xxxxxx 

Error 201 : ACS REGISTER INCORRECT 1 MILLISECOND AFTER DATA 


SYSTEM RESET 
GOOD:01x000, BAD: xxxxxx 


SEQ 0016 
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Test 3 - ACS Read/write Test. 


This test checks that the read/write bits of 
can all be set, all cleared and individually 
errors may be printed : 


Error 300 : ACS READ/WRITE BITS COULD NOT BE 
GO0D:01x417, BAD: xxxxxx 


Error 301 : ACS READ/WRITE BITS COULD NOT BE 
GOOD:01xx00, BAD: xxxxxx 


Error 302 : ACS READ/WRITE BITS COULD NOT BE 
GOOD:O1xxxx, BAD: xxxxxx 


Test 4 - CTA Read/write Test. 


This test checks that the read/write bits of 
can all be set, all cleared and individually 
errors may be printed : 


Error 400 : CTA READ/WRITE BITS COULD NOT BE 
GOOD:021777, BAD:xxxxxx 


Error 401 : CTA READ/WRITE BITS COULD NOT BE 
GO0D:020000, BAD: xxxxxx 


Error 402 : CTA READ/WRITE BITS COULD NOT BE 
GOOD :02xxxx, BAD: xxxxxx 


Test 5 - Control Table Data Test. 


the ACS register 
set. The following 


SET 


CLEARED 


INDIVIDUALLY SET 


the CTA register 
set. The following 


SET 


CLEARED 


INDIVIDUALLY SET 


This test checks that bits 0 to 8 of each control word can all 
be set, all cleared, and individually set. The following errors 


may be printed : 


Error 500 : CONTROL WORD BITS COULD NOT BE SET 
CTA: O2xxxx, GOO0D:030777, BAD: xxxxxx 


Error 501 : CONTROL WORD BITS COULD NOT BE CLEARED 
CTA: O2xxxx, GOOD:030000, BAD: xxxxxx 


Error 502 : CONTROL WORD BITS COULD NOT BE INDIVIDUALLY SET 
CTA:O02xxxx, GOOD:030xxx, BAD: xxxxxx 


oem a + ee + - -  -- 


SEQ 0017 
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Test 6 - Control Table Address Test. 


This checks for interaction between different words of the 
control table. All 1024 control words are loaded with a modulo 
511 count. The entire control table is then read and the 
contents of each word compared with the data which was written 
to it. To check bit 9 of the address logic the first half of the 
control table is loaded with all zeros and the second half with 
all ones. The table is again read to check that the data was 
correctly written. 


The following error may be printed : 


Error 600 : CONTROL TABLE ADDRESSING ERROR, BITS 0-8 
CTA:O2xxxx, GOOD:030xxx, BAD: xxxxxx 


Error 601 : CONTROL TABLE ADDRESSING ERROR, BIT 9 
CTA: O2xxxx, GOOD:030xxx, BAD: xxxxxx 


Test 7 - COUT and SEQ CONT L Interrupt Test. 


This tests that the command output (COUT) signal can be set and 
that the SEQ CONT L input signal can be used to generate an 
interrupt. 


The interrupt enable bit (6) of the DRX11-C SCR register is set 
and in the AAFO1-A's ACS register SBE is set. COUT is then set 
and cleared. COUT is looped back to the SEQ CONT L input signal, 
and the trailing edge sets SBR in the ACS register. This in turn 
sets EOC and STATO in the DRX11-C SCR causing an interrupt. 


The following errors may be printed : 
Error 700 : INTERRUPT TIMEOUT AFTER COUT LOOPBACK 


Error 701 : ACS REGISTER INCORRECT AFTER COUT LOOPBACK 
GOOD:01x250, BAD: xxxxxx 


Error 702 : DRX11-C SCR REGISTER INCQRRECT AFTER COUT LOOPBACK 
GO0D:100700, BAD: xxxxxx 


SEQ 0018 
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Test 8 - DMA to Registers Test. 


This test performs a DMA write to the ACS and CTA registers. The 
register contents are then read back under program control and 
checked. The following errors may be printed : 


Error 800 : NO INTERRUPT AFTER DMA TO REGISTERS 


Error 801 : ACS INCORRECT AFTER DMA WRITE 
GO0D:01x416, BAD:xxxxxx 


Error 802 : CTA INCORRECT AFTER DMA WRITE 
GO0D:020525, BAD: xxxxxx 


Test 9 - DMA to Control Table Test. 


This test performs a single block DMA to all 1024 words of the 
control table. The control table contents are then read back 
under program control and checked. The following errors may be 
printed : 


Error 900 : NO INTERRUPT AFTER DMA TO CONTROL TABLE 


Error 901 : CONTROL TABLE WORD INCORRECT AFTER DMA 
CTA: O02xxxx, GOOD:030xxx, BAD: xxxxxx 


SEQ 0019 
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Test 10 - CWR Mode O Test. 


This tests that after each conversion in mode 0, the CTA 
register is incremented. The contrel table and values for output 
are set up as follows : 


Control word Mode Channel Output voltage 


0 0 0 1.0 
1 0 1 2.0 
2 0 2 3.0 
3 0 3 0.0 


Conversions are then initiated with a DMA count of 3. After the 
conversions are complete, the CTA register is checked to ensure 
that it was correctly incremented. 


The following errors may be output : 


Error 1000 : DRX11-C SCR INCORRECT AFTER MODE O CONVERSIONS 
GOO0D:106000, BAD: xxxxxx 


Error 1001 : ACS INCORRECT AFTER MODE O CONVERSIONS 
GO0D:01x000, BAD: xxxxxx 


Error 1002 : CTA INCORRECT AFTER MODE O CONVERSIONS 
GO0D:020003, BAD: xxxxxx 


SEQ 0020 
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| Test 11 - CWR Mode 1 Test. 


This tests that after a conversion in mode 1, the CTA register 
is reset to 0. The control table and values for output are set 


up as follows : 


Control word Mode Channel Output 


UPWMre oO 
roOoOOoOCOo 
VP WMrO 
OUPWNe 


Conversions are then initiated with a DMA 
conversions are complete the CTA register 
that it wes correctly reset. 


The following errors may be output : 


voltage 


200000 


count of 6. After the 
is checked to ensure 


Error 1100 : DRX11-C SCR INCORRECT AFTER MODE 1 CONVERSIONS 


GO0D:106000, BAD: xxxxxx 


Error 1101 : ACS CONTENTS INCORRECT AFTER MODE 1 CONVERSION 


GOOD:01x000, BAD: xxxxxx 


Error 1102 : CTA REGISTER INCORRECT AFTER MODE 1 CONVERSION 


GO0D:020000, BAD: xxxxxx 


SEQ 0021 
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Test 12 - CWR Mode 2 Test. 


This tests that dummy control table loads can be made by using 
ott 2. The control table and values for output are set up as 
ollows : j 


Control word Mode Channel Output voltage 


VUPWMeO 
RPMMmMNCo 
MRR rO 
Wh hh he 
ooooo°o 


The SCR interrupt enable bit is set and the DMA is started with 
the DRX11-C WCR loaded for 3 DMA's. Conversions are then 
initiated and the program waits for the conversions to complete. 


The following errors may be printed : 


Error 1200 : DRX11-C SCR INCORRECT AFTER MODE 2 CONVERSIONS 
GO0D:106000, BAD: xxxxxx 


Error 1201 : ACS INCORRECT AFTER MODE 2 DMA OUTPUT 
GO0OD:01x000, BAD: xxxxxx 


Error 1202 : CTA INCORRECT AFTER MODE 2 DMA OUTPUT 
GOOD:020000, BAD: xxxxxx 


SEQ 0022 


| 
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Test 13 - CWR Mode 3, RATE CLOCK OUT and SEQ CONT Test. 


This tests that the SEQ CONT signal can initiate and reinitiate 
conversions in mode 3. The control table and values for output 
ere set up as follows : 


Control word Mode Channel Output voltage 


0 3 0 0.0 
1 0 0 1.0 
2 3 0 1.0 
3 1 1 2.0 


The SCR interrupt enable bit is set and the DMA is started with 
the DRX11-C WCR loaded for 2 DMA'’s. The RATE CLK OUT signal is 
connected to the SEQ CONT input via the test connector and so 
triggers the conversions. The CTA register is checked to ensure 
thet this occurred. 


The following errors may be printed : 


Error 1300 : DRX11-C SCR INCORRECT AFTER SEQ CONT CONVERSIONS 
GOOD:106000, BAD: xxxxxx 


Error 1301 : ACS CONTENTS INCORRECT AFTER SEQ CONT CONVERSION 
GO0D:01x000, BAD: xxxxxx 


Error 1302 : CTA REGISTER INCORRECT AFTER SEQ CONT CONVERSION 
GO0D:020000, BAD: xxxxxx 


SEQ 0023 
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Test 14 - Programmable clock test 


This tests the speed and count functionality of the programmable 
clock. The PCR is loaded with the value 4000 to give a 
conversion time of 400 microseconds. The control table is set up 
to perform 2 conversions at this rate and a check is made that 
the conversions require between 1.0 and 1.5 milliseconds to 
complete. 


The 2 conversions are made in mode 0, outputing a value of 5.0 
volts on channels 0 and 1. 


The following errors may be output : 
Error 1400 : CONVERSIONS TOO FAST IN CLOCK TEST 
Error 1401 : CONVERSIONS TOO SLOW IN CLOCK TEST 


Error 1402 : ACS INCORRECT IN CLOCK TEST 
GO0D:01x000, BAD: xxxxxx 


Error 1403 : CTA INCORRECT IN CLOCK TEST 
GO0D:020002, BAD: xxxxxx 


SEQ 0024 
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Test 15 - CWR Mode 4 Test. 


This tests that dummy control table loads can be made by using 
Pell 4. The control table and values for output are set up as 
ollows : 


Control word Mode Channel Output voltage 


OR ee) 
-OfLbOoOoO 
Le) 
Purnnre 
oooooo 


The SCR interrupt enable bit is set and the DMA is started with 
the DRX11-C WCR loaded for 4 DMA's. Conversions are then 
initiated and the program waits for the conversions to complete. 


The following errors may be printed : 


Error 1500 : DRX11-C SCR INCORRECT AFTER MODE 4 CONVERSIONS 
GOOD:106000, BAD: xxxxxx 


Error 1501 : ACS INCORRECT AFTER MODE 4 DMA OUTPUT 
GO0D:01x000, BAD: xxxxxx 


Error 1502 : CTA INCORRECT AFTER MODE 4 DMA OUTPUT 
GO0D:020000, BAD: xxxxxx 


SEQ 0025 


ae ce eee ee + eee oe 
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Test 16 - CWR Mode 5 Test. 


This tests that dummy control teble loads can be made by using 
it 5. The control table and values for output are set up as 
ollows : 


Control word Mode Channel Output voltage 
(first pass) (second pass) 
0 0 0 1.0 4.0 
1 0 1 2.0 5.0 
2 4 1 2.0 5.0 
3 4 1 2.0 5.0 
4 0 2 3.0 6.0 
5 5 2 a 6. 


The SCR interrupt enable bit is set and the DMA is started with 
the DRX11-C WCR loaded for 6 DMA's to use the control table 
twice. Conversions are then initiated and the program waits for 
the conversions to complete. 


The following errors may be printed : 


Error 1600 : DRX11-C SCR INCORRECT AFTER MODE S CONVERSIONS 
GO00D:106000, BAD: xxxxxx 


Error 1601 : ACS INCORRECT AFTER MODE S DMA OUTPUT 
GO0D:01x000, BAD: xxxxxx 


Error 1602 : CTA INCORRECT AFTER MODE 5S DMA OUTPUT 
GO00:020005, BAD: xxxxxx 


- a == eer eee oS ---— 
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Test 17 - CWR Mode 6 Test. 


This tests that dummy control table loads can be made by yo * 
mode 6. The PCR is loaded with the value 95 (complement of 4 ) 
to give ea conversion time of 400 microseconds. The control table 
is then set up to perform 5 conversions. All except the first 
end last conversions are made in mode 6. The first and last are 
made in mode 0 and mode 1, outputi e velue of 1.0 volts and 
2.0 volts respectively on channels and 1. 


The SCR interrupt enable bit is set and ea DMA is started with 
the DRX11-C WCR loaded for 2 DMA'’s. Conversions are then 
initiated and the program checks that the conversions require 
between : and 1.5 milliseconds to complete. 

The following errors may be printed : 

Error 1700 : CONVERSIONS TOO FAST IN CWR MODE 6 

Error 1701 : CONVERSIONS TOO SLOW IN CWR MODE 6 


Error 1702 : ACS INCORRECT AFTER MODE 6 DMA OUTPUT 
GO0D0:01x000, BAD: xxxxxx 


Error 1703 : CTA INCORRECT AFTER MODE 6 DMA OUTPUT 
GOOD :02x000, BAD: xxxxxx 


am ET TTT 
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Test 18 - CWR Mode 7 Test. 


This tests that dummy control teble loads can be made by using 
on 7. The control table and values for output ere set up as 
Oiiows : 


Control word Mode Channel Output voltage 


0 0 0 1.0 
1 7 0 1.0 
2 7 0 1.0 
3 0 1 2.0 - should 
4 0 2 3.0 > not be 
5 i?) 3 4.0 - output 


The SCR interrupt enable and ACS SBE bits ere set and the DMA is 
started with the DRX11-C WCR loaded for 3 DMA’s. Conversions ere 
then initiated. As the second conversion completes, COUT goes 
low causing the input SEQ CONT L to go low. The diagnostic 
checks that an SBR interrupt then occurs and that conversions 
stop with the CTA register pointing to the 4th control word. 


The following errors may be printed : 


Error 1800 : DRX11-C SCR INCORRECT AFTER MODE 7 CONVERSIONS 
GO0D:100600, BAD: xxxxxx 


Error 1801 : ACS INCORRECT AFTER MODE 7 DMA OUTPUT 
GO00D:01x250, BAD: xxxxxx 


Error 1802 : CTA INCORRECT AFTER MODE 7 DMA OUTPUT 
GOOD :020003, BAD: xxxxxx 


SEQ 0028 
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Test 19 - Data Buffer Empty Test. 


This tests that an interrupt can be generated when the AAFO1-A 
data buffer becomes empty. 


The ACS external clock enable bit is set to prevent conversions. 
The control table is then set up for 66 conversions in mode 0, 
to output a value of 5.0 volts on sequential (modulo 15) 
channels. 


DMA's are then initiated and the diagnostic waits for 1 
millisecond for the FIFO to be fully loaded. The DRX11-C COR 
maintenance bit is then set to prevent further DMA'’s. The ECE 
bit is then cleared to allow conversions. A check is made that 
the DBE bit causes an interrupt within a specific timeout 
period and that the CTA register indicates that 64 conversions 
took place. 


The followi:s errors may be printed : 
Error 1900 : NO DATA BUFFER EMPTY INTERRUPT 


Error 1901 : ORX11-C SCR INCORRECT AFTER DATA BUFFER EMPTY TEST 
GO0D:110600, BAD: xxxxxx 


Error 1902 : ACS REGISTER INCORRECT AFTER DATA BUFFER EMPTY TEST 
GO0D:01x300, BAD: xxxxxx 


Error 1903 : CTA REGISTER INCORRECT AFTER DATA BUFFER EMPTY TEST 
GO0D:020102, BAD: xxxxxx 


SEQ 0029 
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Test 20 - External Clock Test. 


This checks that the RATE CLOCK IN/OUT line can be used to 
trigger conversions. The control table and values for output are 
set up as follows : 


Control word Mode Channel Output voltage 


0 0 0 1.0 
1 0 1 2.0 
2 1 2 3.0 


The external clock enable and maintenance bits are set and a 3 
word DMA is enabled. The diagnostic then waits for 1 millisecond 
for the data to be loaded into the FIFO, after which COUT is set 
and cleared 3 times. This signal is looped back to the RATE 
CLOCK IN/OUT line via the test connector. After the third pulse 
a check is made that an End of conversion interrupt occurred and 
that the SCR and ACS registers are correct. 


The following errors may be printed : 
Error 2000 : NO INTERRUPT AFTER EXTERNAL CLOCK TEST 


Error 2001 : ACS REGISTER INCORRECT AFTER EXTERNAL CLOCK TEST 
GO0D:01x004, BAD: xxxxxx 


Test 21 - Linearity Test. 


This checks the linearity of the AAFO1-A. Each possible value is 
output to channel 15. For each of these outputs, two outputs are 
made on channel 0, the first using a value N bits greater than 
that on channel 15, and the second, N bits lower. N is equal 

to the value entered as “TOLERANCE” in the startup software 
questions. A check is made that the first output on channel 0 
results in a logicel 0 from the comparator logic, and that the 
second results in a 1. All outputs are made by program using the 
DBF register. At the range boundaries, only one comparison with 
channel O is made. 


The following error may be printed : 


Error 2100: ACS INCORRECT AFTER DBF OUTPUT COMPARISON 
GOOD:0O1xxxx, BAD:O1xxxx, CHANIS:xxxx, CHANO: xxxx 


em i ee a ee ee 


SEQ 0030 
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SEQ 0031 


This checks that conversions can be made under DMA control. The 
control table is set up to perform 2 outputs, on channels O and 
15. An internal buffer is set up to contain the data 1777 and 
3777. These are selected so that the ACS CMP bit wil be set. 
The DRX11-C is then set up for a 2 word DMA and conversions are 


initiated by setting the GO bit of the ACS register. After the 
| 
j 


| 
| 
Test 22 - DMA Output Comparison Test. | 
{ 


DMA has completed, the ACS register CMP bit is checked to be 
set. The test is then repeated but with the data words 
interchanged so that the ACS CMP bit is not set. 


The following error may be printed : 


Error 2200 : DRX11-C SCR INCORRECT AFTER DMA OUTPUT COMPARISON 
GOOD:106000, BAD: xxxxxx 


Error 2201 : ACS INCORRECT AFTER DMA OUTPUT COMPARISON 
GOOD:O1xxxx, BAD:O1lxxxx CHANI5:xxxx, CHANO:xxxx 
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Test 23 - Memory Transfer Conversion Test. 


This tests DMA conversions in memory transfer mode. An internal 
buffer is set up to contain the following control and date 
words : 


Word Contents Description 
0 0000 Control word, mode 0, channel 0 
1 0000 Data, 9.9976V unipolar or 9.9951V bipolar 
2 0001 Control word, mode 0, channel 1 
3 1777 Data, 7.5000V unipolar or 5.0000V bipolar 
.4 0201 Control word, mode 2, channel 1 
s 0201 Control word, mode 2, channel 1 
6 0002 Control word, mode 0, channel 2 
7 3777 Data, 5.O0000V unipolar or 0.0000V bipolar 
8 0003 Control word, mode 0, channel 3 
9 5777 Data, 2.5000V unipolar or -5.0000V bipolar 
10 0303 Control word, mode 3, channel 3 
11 0004 Control word, mode 0, channel 4 
12 7776 Data, 0.0024V unipolar or -9.9951V bipolar 
13 0404 Control word, mode 4, channel 4 
14 0005 Control word, mode 0, channel 5 
15 7777 Data, 0.0000V unipolar or -10.0000V bipolar 
16 0605 Control word, mode 6, channel 5 
17 0017 Control word, mode 0, channel 15 
18 3777 Data, 5.0000V unipolar or 0.0000V bipolar 
19 0717 Control word, mode 7, channel 15 


These are selected to test combinations of CWR modes and 
channels so that at the end of the conversion the ACS CMP bit 
will be set. 


The DRX11-C is set up to start a 20 word DMA. The GO and MET 
bits of the ACS register are then set. After the DMA has 
completed, the ACS register MET anc CMP bits are checked to be 
set. 


The test is then repeated but with the data words for channels 0 
and 15 complemented so that after the conversions the ACS CMP 
bit is not set. 


The following errors may be printed : 


Error 2300 : DRX11-C SCR INCORRECT AFTER MEMORY MODE DMA 
CONVERSION 
GOOD:106000, BAD: xxxxxx 


Error 2301 : ACS REGISTER INCORRECT AFTER MEMORY MODE DMA 
CONVERSION 
GO0D:01x002, BAD: xxxxxx 


SEQ 0032 
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SEQ 0033 


| 
| 
Test 24 - Calibration Test. | 
This allows the AAFO1-A analogue output to be calibrated. ACS 
bit 11 is first read and a message printed indicating whether 
the module is switched to unipolar or bipolar mode Eg. : ! 


CALIBRATING FOR UNIPOLAR MODE 


questions is loaded with the value 7777 and the user is asked to 
check that the DVM reads -10.000 volts +/- 4.88 millivolts on 
the selected channels. If the output is not within this 
tolerance, the user is asked to adjust the offset potentiometer 
RV1 until the outputs are correct. Each channel is then loaded 
with the value 0000 and the user asked to check that the DVM now 
reads 9.9951 volts +/- 4.88 millivolts. If the output is not 
within this tolerance, he is asked to adjust the gain 
potentiometer RV2 until the output is correct. 


In unipolar mode, each of the channels selected in the startup 
questions is loaded with the value 7777 and the user is asked to 
check that the DVM reads 0.0000 volts +/- 4.88 millivolts on the 
selected channels. If the output is not within this tolerance, 
the user is asked to adjust the DAC OFFS potentiometer RV1 until 
outputs are correct. Each channel is then loaded with the value 
0000 ang the user asked to check that the DVM now reads 9.9976 
volts +/- 4.88 millivolts. If the output is not within this 
tolerance, he is asked to adjust the gain potentiometer RV2 
until the output is correct. 


All outputs are made directly through the DBF register. 


After the module has been tested and/or calibrated, the 
following message is output describing how to continue running 
the diagnostic without the calibration test : 


THIS TEST CAN BE DISABLED BY ABORTING THE TEST AND SETTING THE 
“YAM” FLAG. EG. “CONTROL C” THEN “CONTINUE/FLAGS:UAM". 
TYPE “CARRIAGE RETURN TO CONTINUE OR “CONTROL C” TO ABORT (A) ? 


In bipolar mode, each of the channels selected in the startup 
No error messages ere output by this test. 
| 
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Test 25 - Selectable Output Test. 


This test allows the user to select output patterns for 
monitoring with an oscilloscope. 


The test begins by requesting the patterns for the test : 
FIRST VALUE IN MILLIVOLTS (A) 0.0 ? 
SECOND VALUE IN MILLIVOLTS (A) 10000.0 ? 


After the user has typed in each value, the program prints out 
the actual value which will be output and its equivalent bit 
pattern in octal. The program then asks : 


USE BOTH VALUES FOR EACH CHANNEL (L) N ? 


Two outputs are made on each of the channels selected in the 
startup questions. Either both values are output for each 
channel or the values switch with each new channel according to 
the response to the third question. The control table is set up 
to make all outputs except the last in mode 0. The last is in 
mode 1 to force a return back to the begining of the table. 
Continuous outputs are made with the DRX11-C in double buffer 
mode until the user types control C. 


The following error may be printed : 
Error 2500 : SCR ATTENTION BIT SET DURING DOUBLE BUFFER DMA 


OUTPUT 
SCR: xxxxxx, ACS: xxxxxx 


Error 2501 : INTERRUPT TIMEOUT DURING DOUBLE BUFFER DMA OUTPUT 
SCR: xxxxxx, ACS: xxxxxx 





SEQ 0034 
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Test 26 - Loopback Test using ADFO1. 


This tests that the AAFO1-A conversion accuracy is within ea 
specified tolerance. 


The test begins by requesting the following parameters : 
ADFO1 DRX11-C ADDRESS (0) 164210 ? 


In reply, you should enter the address of the DRX11-C to which 
an ADFO1 is connected. This ADFO1 will be used as the other half 
of ea looped pair. This question is only asked following a 
“START” command. 


CHANGE LOOPBACK PARAMETERS (L) ? 


This allows the paremeters used for loopback testing to be 
changed. Answering "no" forces the use of the default 
peremeters, which cause the most thorough testing, and 
eliminates the need for any more questions. If "Y" is typed, the 
following questions are also asked : 


PATTERN (1=RAMP, 2=RANDOM, 3=PAIR) (D) 1 ? 


This selects how output is made from the AAFO1-A. A sequence of 
2048 outputs is made. If "1" was typed in response to this 
question, the output ramps up from the lowest voltage to the 
highest and back again each pass of the test. If "2" is 
selected, random values are output. Responding with "3" results 
in the output alternating according to the answers to the next 
two questions. 


NOTE : If “2” or "3" ere selected, a conversion time of around 
10 microseconds should be chosen to inhibit the refresh 
logic. If the refresh logic operates in this test, 
se may be printed which do not reflect real hardware 

aults. 


FIRST VALUE IN MILLIVOLTS (A) 0.0 ? 
SECOND VALUE IN MILLIVOLTS (A) 10000.0 ? 


After the user hes typed in each value, the program prints out 
the actuel value which will be output and its equivalent bit 
pattern in octel. The program then asks : 


ALTERNATING CHANNELS (L) Y ? 


Normally, 2048 values are output to the first of the selected 
channels and checked to be correct. Outputs are then made to the 
next channel and so on until each channel has been used. If the 
answer to the “alternating channels” question is “yes”, 2048 
outputs ere made alternating between the first and second of the 
selected channels. After checking the results, oe further 2048 
outputs ere made to the third and fourth of the selected 
channels and checked. This continues until ell channels have 


EE —“‘“_— 


SEQ 0035 
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been checked. If the number of selected channels is odd, the 
last channel is paired with the subsequent channel. 


If a paired data pattern and alternating channels are both 
selected, the effect is that the first of the data values is 
output 1024 times to the first of the channels in the pair and 
the second value to the second channel. This results in a static 
output on each channel, each second channel having the same 
voltage. 


After the parameters have been input, a system reset is made and 
the output from each selected channel is read via the 
DRX11-C/ADFO1 and checked to be zero. 


Starting with the first of the selected channels, 2048 outputs 
ere made under DMA and the program waits for DMA ready. The 
output is read back vie the DRX11-C/ADFO1 analogue input. The 
RATE CLK OUT signal is used to synchronize the two devices. When 
the transfer is complete, the received data is compared with 
that which was output and checked to be within the specified 
tolerance. 


NOTE : The DMA is divided into 64 word blocks, the first half of 
which consists of dummy outputs. If the outputs are being 
observed on an oscilloscope, a delayed trigger is 
necessary to see the date changing. 


The test then proceeds with the next channel and continues until 
ell selected channels have been tested. 


If “alternating channels” was selected at the start of the test, 
then the list of selected channels is split into pairs. The test 
sequences through the pairs alternating output between each 
channel in the pair. 


The following errors may be printed : 


Error 2600 : ADFO1 DRX11-C REGISTER ADDRESSING ERROR 
REGISTER AT xxxxxx DOES NOT RESPOND 


Error 2601 : ADFO1 NOT IN SAME MODE AS AAFO1-A 
ADFO1:unipoler, AAFO1-A:bipolaer 


Error 2602 : TIMEOUT ON DMA INPUT 


SCR: xxxxxx, ACS: xxxxxx 


Error 2603 : ERROR ON DMA INPUT 


SCR: xxxxxx, ACS: xxxxxx 


Error 2604 : OUTPUTS NOT ZERO AFTER A SYSTEM RESET 
CHANNEL: xx, GOOD:xxxx, BAD: xxxx 


Error 2605 : DRX11-C SCR INCORRECT IN LOOPBACK TEST 
GO0D:106000, BAD: xxxxxx 


Error 2606 : ACS REGISTER INCORRECT AFTER LOOPBACK TEST 
GO00D:010000, BAD: xxxxxx 


-_- —- eee oO --—™ 
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Error 2607 


: LOOP BACK DATA NOT WITHIN SPECIFIED TOLERANCE 


CHANNEL: xx, GOOD:xxxx, BAD: xxxx 
RUN TEST 24 TO CALIBRATE THE MODULE 


—— ee er ee OO" - ¢ ee wo: ae ee —- 


—— 


SEQ 0037 
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Test 27 - Loopback Test using IEX11-A Interface. 


This tests thet the AAFO1-A conversion accuracy is within oa 
specified tolerance. The output from the AAFO1-A is read using 
a digitel voltmeter connected to an IEX11-A interface. This 
provides more accurete measurement than the ADFO] used in test 
26. 


The test begins by requesting the following perameters : 
IEX11-A ADDRESS (0) 164100 ? 


In reply, you should enter the address of the IEX11-A to which 
® digitel voltmeter is connected. This IEX11-A will be used to 
reed beck the outputs of the AAFO1-A. This question is only 
asked following a “stert” command. 


CHANGE LOOPBACK PARAMETERS (L) ? 


This ellows the peremeters used for loopbeck testing to be 
changed. Answering “no” forces the use of the default 
peremeters, which ceuse the most thorough testing, and 
eliminates the need for any more questions. If "Y" is typed, the 
following questions ere also asked : 


LOOPBACK TOLERANCE IN MILLIVOLTS (A) 10.0 ? 


If the difference between output and input velues is greater 
then this velue, en error messege will be output. 


PATTERN (1=RAMP, 2=RANDOM, 3=PAIR) (D) 1 ? 


This selects how output is made from the AAFO1-A. A sequence of 
4095 decimal outputs is made. If “1” was typed in response to 
this question, the output remps up from the lowest voltage to 
the highest and beck egein. If “2” is selected, rendom velues 
ere output. Responding with “3” results in the output 
alternating eccording to the enswers to the next two questions. 


FIRST VALUE IN MILLIVOLTS (A) 0.0 ? 

SECOND VALUE IN MILLIVOLTS (A) 10000.0 ? 

After the user hes typed in eech velue, the progrem prints out 
the ectuel velue which will be output and its equivelent bit 
pettern in octel. 

After the peremeters have been input, e@ system reset is made. 
Using the chennel selected es “FIRST CHANNEL” in the stertup 
questions, 4096 outputs ere made. After each output, the IEX11-A 
is used to check thet the resulting voltege is within the 
specified tolerence. At the end of each pess, the maximum 
deviation from the expected velue is printed. 


The following errors may be printed : 





SEQ 0038 


N3 
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SEQ 0039 


Error 2700 : IEX11-A REGISTER ADDRESSING ERROR 
REGISTER AT xxxxxx DOES NOT RESPOND 


Error 2701 : ACS REGISTER INCORRECT AFTER OUTPUT TO IEX11-A 
G00D:010000, BAD: xxxxxx 


ERROR NUMBER: x 


Error 2703 : LOOP BACK DATA NOT WITHIN SPECIFIED TOLERANCE 


Error 2702 : ERROR ON IEX11-A INPUT 
GOOD: xxxxx.xxx MILLIVOLTS, BAD: xxxxx.xxx MILLIVOLTS 
| 


———=—- = 


USER DOCUMENTATION 


ee 
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Test 28 - Direct Read/write Test. 


This ellows the registers of the AAFO1-A to be read from or 
written to (where the hardware allows). Multiplexing through the 
DRX11-C to the AAFO1-A and further to the control table is 
performed by the program. 


Normally, the program will use unit 0. However, any unit can be 
es by starting the test with the /UNIT switch (see section 
Ads 


Registers are specified using 3 or 4 character mnemonics. After 
@ register has been read and if required a new value input, 
another register will automatically be opened according to the 
sequence shown below. 


-> BARI SCR -> DBF -> control word addresed by CTA 
: WCR1 COR ' ACS H next control word 

! BAR2 ADR : PCR : next control word 

: WCR2 DBR : CTA ' : 

: wco Hy : v 

: ACO , : : : last control word 

> . —t_*_ - © Sea eoce 

6 


To exit from any sequence, "control Z” can be typed to return to 
the “REG” prompt. Typing “CONTROL C” returns the user to the 
supervisor. The following example shows how the test can be 
used. User input is underlined : 


START/TEST :28/UNIT:3 


REG (S) SCR ? PCR <cr> 


PCR (0) xxxxxx ? <eor> 


CTA (0) xxxxxx ? O <er> 


CWR 0000 (0) xxxx ? 123 <cr> 


CWR 000i (0) xxxx ? 456 <cr> 


CWR 0002 (0) xxxx ? <control Z> 


ee 


REG (S) CTA ? <control C> 


SEQ 0040 
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7.0 Design and Manufacturing Checkout. 


Whilst the default tests described above should be enough to 
test most of the module functionality, it is recommended that 
additional testing is performed in the design and manufacturing 
stages of the module development. 
In the design phase, the following should be checked : 

a. The module works in unipolar and bipolar mode. 


b. Conversion accuracy at rates from 80 to 400 KHz is as 
described in the Design Specification. 


c. The module passes the lo .pback test with all legel 
pereameter combinations. 


d. In test 13 the logic waits for SEQ CONT when operating in 
CWR mode 3. 


In the manufacturing phase, the following should be checked : 
e. The module works in unipolar and bipolar mode. 


b. The module passes the loopback test in unipolar mode with 
the default pereameters. 


c. The RATE CLOCK OUT output signal should be checked with an 
oscilloscope. 


d. Using an oscilloscope, the SYS IN PROG L output signel 
should be verified to be set during conversions in test 12 
(mode 2) and to remain not set during conversions in test 
15 (mode 4). 


The above manufacturing checks probably need to be made on a 
small sample of modules from each batch. 


é 


SEQ 0041 


qn eo 


a  — 


PROGRAM 


1759 
1760 
1761 
1787 
1792 
1794 
1795 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1823 
1824 


HEADER 


000000 


002000 


002000 


002000 
002000 
002000 
002001 
002002 
002003 
002004 
002005 
002006 
002007 
002010 
002010 
002011 
002011 
002012 
002012 
002014 
002014 
002016 
002016 
002020 
002020 
002022 
002022 
002024 
002024 
002026 
002026 
002030 
002030 
002032 
002032 


AND TABLES 


002000 


002124 


D4 
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. TITLE PROGRAM HEADER AND TABLES 


-SBTTL PROGRAM HEADER 
-ENABL LC 


-ENABL ABS,AMA 


BGNMOD 


;¢e 


; THE PROGRAM HEADER IS THE I!.TERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNRPT ,BGNSW,BGNSFT ,BGNAU,BGNDU,BGNSETUP 


HEADER CZAAF,A,0,45,0,340 


L$NAME: : 


L$REV:: 
L$DEPO:: 
LSUNIT:: 
L$TIML: : 
L$HPCP:: 
L$SPCP:: 
L$HPTP:: 
L$SPTP: : 
L$LADP:: 
L$STA:: 


L$CO:: 


L$DTYP:: 
L$APT:: 
L$OTP:: 
L$PRIO:: 


SEQ 0042 


40/ 
TSPTHV 
4s 

L $HARD 
L$SOFT 
L $HW 
L$SW 
L$LAST 
0 

0 

0) 

0 
L$DISPATCH 


| PROGRAM HEADER 
PROGRAM HEADER 


002042 
002044 
002044 
002046 
002046 
002050 
002050 


| 
| 
i 
| 
| 002051 
002052 
002052 
1825 
i 
! 


002054 
002056 
002056 
002060 
002060 
002062 
002062 
002064 
002064 
002066 
002066 
002070 
002070 
002072 
002072 
002074 
002074 
002076 
002076 
002100 
002100 
002102 
002102 
002104 
002104 
002106 
002106 
002110 
002110 
002112 
002112 
002114 
002114 
002116 
002116 
002120 
002120 


AND TABLES 


000340 
000000 
000000 


003 
003 


000000 
000000 


000000 
023202 
032234 
000000 
000000 
035450 
035362 
000000 
023212 
104035 
000000 
033532 
035266 
035204 
033524 
000000 
000000 
000000 


E4 
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LSENVI:: 
LS$EXP1:: 
L$MREV:: 


LSEF:: 


L$SPC:: 
L$DEVP: : 
L$REPP: : 
LS$EXP4:: 
L$EXPS:: 
L$AUT:: 
L$DUT:: 
L$LUN:: 
L$DESP: : 


L$LOAD:: 


LSETP:: 
L$ICP:: 
L$CCP:: 
LSACP:: 
L$PRT:: 
L$TEST:: 
LSOLY:: 
L$HIME: : 


SEQ 0043 


C$REVISION 
CsEDIT 


0 
0 


0 
L$DVTYP 
L$RPT 


L$DESC 
E$LOAD 
0 
L$INIT 
L$CLEAN 
L$AUTO 
L$PROT 


i 
i A 


| PROGRAM HEADER AND TABLES 


| DISPATCH TABLE 


1837 
|: 1838 


1839 
1840 
1841 
1842 
1843 
| 
! 


1844 


002122 
002122 
002124 
002124 
002126 
002130 
002132 
002134 
002136 
002140 
002142 
002144 
002146 
002150 
002152 
002154 
002156 
002160 
002162 
002164 
002166 
002170 
002172 
002174 
002176 
002200 
002202 
002204 
002206 
002210 
002212 


- ——————— A ——— A Te 


000034 


035462 
035776 
036720 
037602 
040414 
041252 
042120 
043014 
043652 
044472 
045442 
046424 
047406 
050422 
051512 
052474 
053456 


075500 


F4 
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-SBTTL DISPATCH TABLE 


p+ 


eee ee ee ee 1 se eee 


; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 


; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 28. 


. WORD 
L$DISPATCH: : 
. WORD 
. WORD 
.WORD 
.WORD 


SEQ 0044 


{ 
| PROGRAM HEADER AND TABLES 
| DEFAULT HARDWARE P-TABLE 


1853 
1854 
1855 


002214 
002214 
002216 
002216 
1863 
1873 002216 
1874 002220 
1875 

1876 002222 
002222 


000002 


164200 
000270 
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-SBTTL DEFAULT HARDWARE P-TABLE 


344 
; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 
; AND IS USED AS A "TEMPLATE" FOR BUILDING THE P-TABLES. 
iis 


BGNHW DFPTBL 
. WORD 
L$HW:: 
DFPTBL:: 
. WORD 164200 ; DRX11-C SCR address 
. WORD 270 ; DRX11-C vector address 
ENDHW 


L10000: 


SEQ 0045 


L10000-L $HW/2 


| PROGRAM HEADER AND TABLES 


a a a RR A RN 


| SOFTWARE P-TABLE 


1887 002222 
002222 
002224 
002224 


1897 002224 
1898 002226 
1899 002230 
1900 002232 
1901 002234 
1902 002236 


1904 002246 
002240 


000006 


000000 
000017 
000310 
000007 
000000 
000000 


H4 
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-SBTTL SOFTWARE P-TABLE 


3+ 


; THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 


; PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
; SET UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR 


; AT RUN TIME. 


BGNSW SFPTBL 


FSTCHN:: . WORD 0 ; first channel 

LSTCHN:: . WORD iS. ; last channel 

CTIME:: . WORD 200. ; conversion time 

TOL:: . WORD 7 ; tolerance 

QVMODE: : -WORD 0O ; Quick verify mode ? 

RDUMP: : -WORD O ; register dump ? 
ENDSW 


L$SW:: 
SFPTBL:: 


L10001: 


SEQ 0046 


-WORD L10001-L$SW/2 


a  -— Se eee ee 


- = a eee ae — 


14 
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SEQ 0047 
| HARDWARE PARAMETER CODING SECTION 
pte .SBTTL HARDWARE PARAMETER CODING SECTION 
1908 i++ 
1909 ; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
1910 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
1911 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
1912 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
1913 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
1914 ; WITH THE OPERATOR. 
1915 3-- 
1916 
1917 002240 BGNHRD 
002240 000010 -WORD L10002-L$HARD/2 
002242 L$HARD: : 
1918 
1928 
1929 002242 GPRMA G1,0,0,160000,177776, YES ; DRX11-C SCR address 
002242 000031 . WORD T$CODE 
002244 002262 .WORD G1 
002246 160000 . WORD T$LOLIM 
002250 177776 . WORD T$HILIM 
1930 002252 GPRMA G2,2,0,0,770, YES ; DRX11-C vector address 
002252 001031 .WORD T$CODE 
002254 002302 . WORD G2 
002256 000000 . WORD T$LOLIM 
- 002260 000770 . WORD T$HILIM 
1931 
1932 002262 ENDHRD 
-EVEN 
002262 L10002: 
1933 
1940 
1941 -NLIST BEX 
1942 002262 104 122 130 Gi: .ASCIZ /DRX11-C ADDRESS/ 
1943 002302 104 122 130 Ge: .ASCIZ /DRX11-C VECTOR ADDRESS/ 
1944 »LIST BEX 
1945 -EVEN 


_ PROGRAM HEADER AND TABLES 


ee ee ee 


J4 
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SOFTWARE PARAMETER CODING SECTION 


1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 


1959 
1968 
1969 


1970 


1971 


1972 


002332 
002332 
002334 


002334 
002334 
002336 
002340 
002342 
002344 
002346 
002346 
002350 
002352 
002354 
002356 
002360 
002360 
002362 
002364 
002366 
002370 
002372 
002372 
002374 
002376 
002400 
002402 
002404 
002404 
002406 
002410 
002412 
002412 
002414 
002416 


002420 
002420 


000032 


177777 


005130 
002566 
177777 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


toe 


SEQ 0048 


; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 


BGNSFT 

GPRMD G3,0,0,-1,0,64.,YES 
GPRMD G4,2,0,-1,0,64.,YES 
GPRMD G5,4,0,-1,1,4095.,YES 
GPRMD G6,6,0,-1,0,4095.,YES 
GPRML G7,10,-1,YES 

GPRML G8,12,-1,YES 

- EVEN 

ENDSFT 

-NLIST BEX 





-WORD L10003-L$SOFT/2 
L$SOFT:: 


; first channel 


-WORD TSCODE 
-WORD G3 
WORD 


. -1 

. WORD T$LOLIM 

. WORD T$HILIM 
; last channel 


-WORD TSCODE 
-WORD G4 
-WORD -1 


. WORD T$LOLIM 
WORD T$HILIM 
; conversion time 


° T$CODE 
-WORD GS 
-WORD -1 


. WORD T$LOLIM 
-WORD TS$HILIM 
; tolerance 


«WORD TSCODE 
-WORD G6 
. WORD 


-1 
-WORD TSLOLIM 
-WORD TSHILIM 


. WORD TS$CODE 
-WORD G7 
. WORD -1 

; register dump ? 
-WORD G8 
. WORD -1 
-EVEN 


110003: 


ee ee ee ee ae ee 


a ee eee 


ee — cme oe + 


K4 


PROGRAM HEADER AND TABLES MACRO VOS.00 Friday 01-Feb-85 08:58 Page 39-1 
| SEQ 0049 
a PARAMETER CODING SECTION 
1988 002420 106 111 122 G3: -ASCIZ /FIRST CHANNEL/ 
1989 002436 114 101 123. G4: -ASCIZ /LAST CHANNEL/ 
1990 002453 103 117 116 G5: -ASCIZ /CONVERSION TIME (100 NANOSECOND STEPS)/ 
1991 002522 124 117 114 G6: -ASCIZ /TOLERANCE IN BITS/ 
1992 002544 121 125 111 G7: -ASCIZ /QUICK VERIFY MODE/ 


1994 -LIST BEX 
1995 - EVEN 


1993 002566 122 105 107 G8: -ASCIZ /REGISTER DUMP AFTER EVERY ERROR/ 
1998 002626 ENDMOD 
| 


GLOBAL AREAS 


SOFTWARE PARAMETER CODING SECTION 


2011 
2012 


2072 
2073 


002626 


000340 





L4 
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- TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


BGNMOD 


ioe 


; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 


; ARE USED IN MORE THAN ONE TEST. 
gee 


EQUALS 
; BIT DIFINITIONS 


; 

BIT15== 100000 
BIT14== 40000 
BIT13== 20000 
BIT12== 10000 
BITi1== 4000 
BIT10== 2000 
BITO9== 1000 
BITO8== 400 
BITO7== 200 
BITO6== 100 
BITOS== 40 
BITO4== 20 
BITO3== 10 
BITO2== 4 
BITO1== 2 
BITOO== 1 


; 

BIT9== BITO9 
BIT8== BITOS 
BIT7*= B1T07 
BIT6== BIT06 
BITS== BITOS 
BIT4*= BIT04 
BIT3== BITOS 
BIT2== BITO2 
BITi== BITO1 
BITO== BITOO 


; 
; EVENT FLAG DEFINITIONS 


; EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


: 

EF .START== 32. 
EF .RESTART== 31. 
EF .CONTINUE== 30. 
EF .NEW== 29. 
EF .PWR== 28. 
; 


; 

; PRIORITY LEVEL DEFINITIONS 
; 

PRIO7== 340 


+ START COMMAND WAS ISSUED 

; RESTART COMMAND WAS ISSUED 

; CONTINUE COMMAND WAS ISSUED 

; A NEW PASS HAS BEEN STARTED 

; A POWER-FAIL /POWER-UP OCCURRED 


SEQ 0050 


GLOBAL AREAS 
GLOBAL EQUATES SECTION 
000300 
000240 
000200 
000140 
000100 
000040 
000000 
000004 
000010 
000020 
000040 
000100 
000200 
0400 
00100u 
002000 
004000 
010000 
020000 
040000 
100000 
2074 
2075 
2076 
2077 100000 
2078 040000 
2079 020000 
2080 010000 
2081 004000 
2082 002000 
2083 001000 
2084 000400 
2085 000200 
2086 000100 
2087 000040 
2088 000020 
2089 000010 
2090 000004 
2091 000002 
2092 000001 
2093 
2094 
2095 
2096 100000 
2097 040000 
2098 
2099 010000 
2100 004000 
2101 002400 
2102 002000 
2103 001400 
2104 001000 
2105 000400 
2106 000000 


M4 
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; DRX11-C SCR bit definitions 


2 


PRI06*= 300 
PRIOS== 240 
PRIO4== 200 
PRIO3== 140 
PRIO2*= 100 
PRIO1== 40 
PRIOO== 0 
: 
;OPERATOR FLAG BITS 
; 
EVL== 4 
LOT== 10 
ADR== 20 
I0U== 40 
ISR== 100 
UAM== 200 
BOE == 400 
PNT== 1000 
PRI== 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 
ATT 
NEX 
OF F 
WAIT 
STATS 
STAT2 
STATI 
STATO 
RDY 
IE 
RES 
OCH 
FNCTS 
FNCT2 
FNCT1 
FNCTO 


; ORX11-C COR bi 


1 


t definitions 


—_——— oo — 


attention 

non existent memory 
off line 

wait 

stetus 3 

stetus 2 

stetus 1 

stetus 0 

ready 

interrupt enable 
reset 

direction change 
function 3 
function 2 
function 1 
function 0 


buffer mark 

trensfer direction 
DMA enable 
meintenence 

burst enable 

eddress counter 

word counter 

word count register 2 
bus eddress register 2 
word count register i 
bus eddress register | 


SEQ 005) 


N4 
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GLOBAL EQUATES SECTION 


: 2107 000100 
2108 
2109 
2110 
2111 000000 
2112 010000 
2113 020000 
2114 030000 
2115 040000 
2116 
2117 
2118 
2119 004000 
2120 002000 
2121 001000 
2122 000400 
2123 000200 
2124 000100 
2125 000040 
2126 000020 
2127 000010 
2128 000004 
2129 000002 
2130 000001 


ALT 


; AAFO1-A Register subeddresses 


z= 100 


zz 0 

== 10000 
== 20000 
== 30000 
== 40000 


; ACS Register bit definitions 


s= 4000 
== 2000 
== 1000 
z= 400 


elternate buffer mode 


date buffer/FIFO 


command and status register 
control table address register 


control word register 


programmable clock register 


unipoler operation 
comperetor 
maintenance 

command output 

end of conversion 
dete buffer empty 
seqence break 

dete system reset 
sequence break enable 
external clock enable 
memory trensfer 

go (start conversions) 


SEQ 0052 
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SEQ 0053 
lesen MACROS SECTION 
2132 -SBTTL GLOBAL MACROS SECTION 
2133 pee 
2134 ; Macros to save or restore registers. 
2135 ; 
2136 ; Examples : 
2137 3 
2138 : PUSH$ <RO,R1,R2,R3,R4,RS> 
2139 ; POP$ <R5,R4,R3,R2,R1,RO> 
2140 s-- 
2141 
2142 -MACRO PUSH$ args 
2143 .irp arg. <args> 
2144 MOV arg, -(SP) 
2145 .endr 
2146 .ENDM PUSH$ 
2147 
2148 -MACRO POP$ args 
2149 .irp erg, <args> 
2150 MOV (SP)+,arg 
2151 .endr 
2152 -ENDM POPS$ 


ee ee ee 


GLOBAL AREAS 
GLOBAL DATA SECTION 
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ina 


-SBTTL GLOBAL DATA SECTION 


3° 


; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 


; IN MORE THAN ONE TEST. 


ORXSCR: : 
DRXCOR: : 
DRXADR: : 
ORXDBR: : 
ORXVEC:: 


ADFSCR:: 
ADFCOR: : 
ADF ADR: : 
ADF DBR: : 


ADF ADD: : 


ECNT:: 


DROPED: : 


NXMFLG:: 
INTFLG:: 
PFLAGI:: 





oooo ooo°o°o 


- oF © © © Ge @ SF © Ge oF Ge Ge oe oe oe 


ORX11-C SCF address 
ORX11-C COR address 
ORX11-C ADR address 
DRX11-C DBR address 
ORX11-C vector address for current uut 


ADF’s DORX11-C 
ADF’'s ORX11-C 
ADF’s ORX11-C 
ADF’'s DRX11-C 


ADFO1 address 
ADFO1 address 
ADFO1 address 
ADFO1 address 
ADFO1 address 
ADFO1 address 
ADFO1 address 
ADFO1 address 
ADFO1 address 
ADFO1 address 
ADFO1 address 
ADFO1 address 
ADFO1 address 
ADFO1 addoress 
ADFO1 address 
ADFO1 address 


error count for uut 
error count for uut 
error count for uut 
error count for uut 
error count for uut 
error count for uut 
error count for uut 
error count for uut 
error count for uut 
error count for uut 


SCR address 
COR address 
ADR address 
DBR address 


- unit 
unit 
unit 
unit 
unit 
unit 
unit 
unit 

it 
unit 
unit 10 
unit 11 
unit 12 
unit 13 
unit 14 
unit 15 


WeOnDuUewunhro 


W@nINOUSWNRrO 


error count for uut 10 
error count for uut 11 
error count for uut 12 
error count for uut 13 
error count for uut 14 
error count for uut 15 


unit dropped flags 


set if nxm trap occurs 
set by an interrupt to routines INT or INT] 
flags to control “unipolar/bipolar” printout 


for 
for 
for 
for 


for current uut 
for current uut 
for current uut 
for current uut 


current 
current 
current 
current 


SEQ 0054 


uut 
uut 
uut 
uut 


- bit 15 is set to 
- flag not tested. 


‘ 
ow waren — 4d 


— ee 


GLOBAL AREAS 
, GLOBAL DATA SECTION 


2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 


003014 
003016 


003020 
003022 
003024 
003026 


003030 
003032 


003034 
003036 


003040 
023040 


D 
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000000 
000000 


000000 
000000 


000000 


QFLAG1:: . WORD 0 
QFLAG2:: . WORD 0 
GOOD: : . WORD 0 
BAD: : . WORD 0 
PADD: : . WORD 0 
MODE: : . WORD 0 
STAFLG:: . WORD 0 
ITRCNT:: . WORD 0 
FVAL:: . WORD TV7T 
SVAL:: . WORD 0 
BUF OUT: : .-BLKW 4096. 
BUFIN: : . WORD 0 


5 


SEQ 0055 


after start command 

flag to control questions after start command 
flag to control questions after start, 
restart or continue command 


; expected contents 
; actual contents 


; address of prompt for decimal input routine 
; mode for digital/analogque conversion routines 


; flag = 1 after start command, cleared by each test 
; iteration counter 


; first value for output in tests 25 and 26 
; second value for output in tests 25 and 26 


; buffer for DMA output 
; address of buffer for DMA input 


eee TO —— —- - 


E5 
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000012 -RADIX 10 
2234 -NLIST BEX 


2236 ; Analogue/digital conversion tables used by routines DACON and ADCON. 


SEQ 0056 


ae] 
LS) 
w 
w 


2240 ; Unipolar table - mode 0 (0-10v) 
2242 ; Bits 11 10 9 8 7 6 5 4 3 2 1 0 


2244 023042 011610 004704 002342 VUPTAB:: 5000,2500,1250, 625, 312, 156, 78, 39, 19, 9, 4, 25 mV 
2245 023072 000000 000000 000000 0, 0, 0, 0, 500, 250, 125, 63, 531, 766, 883, 441 ; uV 


2249 ; Bipolar table - mode 1 (-10 - +10v) 

2251 ; Bits 11 10 9 8 7 6 5 4 3 2 1 0 
2253 023122 023420 011610 004704 VBPTAB::10000,5000,2500,1250, 625, 312, 156, 78, 39, 19, 9, 4; 
2254 023152 000000 000000 000000 0. oO, 0, 0, 0, 500, 250, 125, 63, 531, 766, 883 ; uV 


2257 000010 -RADIX 8 
2258 -LIST BEX 


ewe =e 


contd 


a 


oe a 





--— ee 


FS 
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| 
| 
2260 .SBTTL GLOBAL TEXT SECTION 
2261 

2262 yes 

2263 ; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 

2264 ; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

2265 ; MORE THAN ONE TEST. 

2266 te 

2267 


2269 

2270 F 

od ; NAMES OF DEVICES SUPPORTED BY PROGRAM 
22 ; 

2273 023202 DEVTYP <AAFO1-A> 


2268 -NLIST BEX 
023202 L$DVTYP:: 
023202 101 101 106 oy /AAFO1-A/ 
| 
| 


“EVE 

2274 
2275 ; TEST DESCRIPTION 
2276 
2277 023212 DESCRIPT <AAFO1-A DIAGNOSTIC> 

023212 L$DESC:: 

023212 101 101 106 .ASCIZ /AAFO1-A DIAGNOSTIC/ 

-EVEN 

2278 
2279 023236 106 111 122 FVALQ:: .ASCIZ /FIRST VALUE IN MILLIVOLTS/ ; prompts for values 
2280 023270 123 105 103 SVALQ:: .ASCIZ /SECOND VALUE IN MILLIVOLTS/ ; used in tests 
2281 023323 045 101 122 RNDOUT::.ASCIZ /#AROUNDED TO / ; 25 to 27 
2282 023341 045 101 040 OCTOUT::.ASCIZ /#A MILLIVOLTS - OCTAL VALUE #05sN/ 
2283 
2284 .LIST BEX 
2285 -EVEN 
2286 


GLOBAL AREAS 
GLOBAL ERROR REPORT SECTION 


2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2312 
2313 


2314 


2315 
2316 


2317 
2318 
2319 


2320 
2321 
2322 


2323 
2324 
2325 


2326 
2327 
2328 


2329 
2330 


2331 


023404 
023404 
023404 
023410 
023414 
023414 
023414 


023416 
023416 
023416 
023416 
023422 
023426 
023432 
023436 
023440 
023442 
023446 
023452 
023456 
023456 
023456 


023460 
023460 
023460 
023460 
023462 
023466 
023472 
023474 
023476 
023502 
023506 
023512 
023512 
023512 


023514 
023514 
023514 
023514 
023520 
023524 
023526 
023532 


GS 
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004737 
004737 


104423 


013746 
013746 
012746 
012746 
010600 
104414 
062706 
004737 
004737 


104423 


010146 
012746 
012746 
010600 
104414 
062706 
004737 
004737 


104423 


013746 
013746 
010246 
012746 
012746 


024760 
025124 


003022 
003020 
024204 
000003 


000010 
024760 
025124 


024234 
000002 


009006 
024760 
025124 


003022 
003020 


024303 
000004 


-SBTTL GLOBAL ERROR REPORT SECTION 


; THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 


; USED BY MORE THAN ONE TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. 


; (BASIC) AND PRINTX CEXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 


t-- 


BGNMSG 
JSR 


JSR 
ENDMSG 


BGNMSG 
PRINTB 


JSR 
JSR 
ENDMSG 


BGNMSG 
PRINTB 


JSR 
JSR 
ENDMSG 


BGNMSG 
PRINTB 


ECHK 


PC , CHKMAX 
PC ,DUMP 


EGB 


#GOOBAD , GOOD , BAD 


PC, CHKMAX 
PC ,DUMP 


ERDNR 
#EMG1,R1 


PC, CHKMAX 
PC, DUMP 


ECGB 
#EMG2 ,R2,GO0D,BAD 


SEQ 0058 
PRINTB 
ECHK:: 
check for too many errors 
dump registers if dumping selected 
L10004: 
TRAP C$MSG 
EGB:: 
print "GOOD, BAD” 
MOV BAD, -( SP) 
MOV GOOD, -( SP) 
MOV #GOOBAD , -( SP) 
MOV SP ,RO 
TRAP C$PNTB 
¢ ADD #10,SP 
check for too many errors 
dump registers if dumping selected 
L1i0005: 
TRAP C$MSG 
ERONR: : 
print “REGISTER DOES NOT RESPOND” 
MOV R1,-(SP) 
MOV #EMG1, - (SP) 
MOV SP ,RO 
TRAP CS$PNTB 
ADD #6,SP 
check for too many errors 
dump registers if dumping selected 
L10006: 
TRAP C$MSG 
ECGB:: 
print “CTA, GOOD, BAD” 
MOV BAD, -( SP) 
MOV GOOD, -( SP) 
MOV R2,-(SP) 
MOV #EMG2, -( SP) 
MOV 04,-(SP) 


ae ee ee ee ee ——4 


| GLOBAL AREAS 
| GLOBAL ERROR REPORT SECTION 


2332 
2333 
2334 


2335 
2336 
2337 


2338 
2339 
2340 


2341 
2342 
2343 


2344 
2345 
2346 


2347 
2348 


2349 


023536 
023540 
023542 
023546 
023552 
023556 
023556 
023556 


023560 
023560 
023560 
023560 
023564 
023570 
023574 
023600 
023602 
023604 
023610 
023614 
023620 
023620 
023620 


023622 
023622 
023622 
023622 
023624 
023626 
023632 
023636 
023642 
023646 
023650 
023652 
023656 
023662 
023666 
023666 
023666 


023670 
023670 
023670 
023670 
023672 
023674 
023700 
023704 
023706 
023710 
023714 
023720 
023724 
023724 


—— ——— 


H5 
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010600 
104414 
062706 
004737 
004737 


104423 


017746 
013746 
012746 
012746 
010600 
104414 
062706 
004737 
004737 


104*23 


010246 
010146 
013746 
013746 
012746 
012746 
010600 
104414 
062706 
004737 
004737 


104423 


010346 
010246 
012746 
012746 
010600 
104414 
062706 
004737 
004737 


000012 
024760 
025124 


157042 
002772 
024347 
000003 


000010 
024760 
025124 


003022 
003020 
024443 
000005 


000014 
024760 
025124 


024526 
000003 


000010 
024760 
025124 


JSR 
JSR 
ENDMSG 


BGNMSG 
PRINTB 


JSR 
JSR 
ENDMSG 


BGNMSG 
PRINTB 


JSR 
JSR 
ENDMSG 


BGNMSG 
PRINTB 


JSR 
JSR 


PC, CHKMAX 
PC, DUMP 


EIGB 


#EMG3,INTFLG, @DRXSCR 


PC, CHKMAX 
PC ,DUMP 


EGBCC . 
#EMG4 ,GOOD,BAD,R1,R2 


PC, CHKMAX 
PC, DUMP 


ESA 


#EMGS ,R2,R3 


PC, CHKMAX 
PC ,DUMP 


SEQ 0059 


MOV SP,RO 
TRAP C$PNTB 
ADD #12,SP 
check for too many errors 
dump registers if dumping selected 


L10007: 
TRAP C$MSG 


EIGB:: 
print “INTERRUPTS, GOOD, BAD” 
MOV @DRXSCR, -CSP) 


MOV INTFLG, -(SP) 
MOV #EMG3, - CSP) 
MOV SP ,RO 
TRAP C$PNTB 
ADD #10,SP 


check for too many errors 
dump registers if dumping selected 


L10010: 
TRAP C$MSG 


EGBCC: : 
print "GOOD, BAD, — CHANO “ 
Vv 


R2,-CSP) 
MOV R1,-CSP) 
MOV BAD, -( SP) 
MOV GOOD, -( SP) 
MOV #EMG4 , - CSP) 


ADD #14,SP 
check for too many errors 
dump registers if dumping selected 


L10011: 
TRAP C$MSG 


ESA:: 
print “SCR, ACS” 
MOV R3,-CSP) 


check for too many errors 
dump registers if dumping selected 


L10012: 





I5 
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023724 104423 


2353 

2354 023726 BGNMSG EAAAF 
023726 

2355 023726 PRINTB #EMG6,R1,R2 


! 
| 023726 010246 
023730 010146 
023732 012746 024555 
023736 012746 000003 
023742 010600 
023744 104414 
023746 062706 000010 
| 
! 


2356 023752 004737 024760 JSR PC, CHKMAX 
2357 023756 004737 025124 JSR PC ,CUMP 
2358 023762 ENDMSG 
023762 
023762 104423 
2359 
2360 023764 BGNMSG ECHGB 
023764 
2361 023764 PRINTB #E€MG7,R1,GO0D,BAD 


023764 013746 003022 
023770 013746 003020 
023774 010146 
023776 012746 024610 
024002 012746 000004 
024006 010600 
024010 104414 
024012 062706 000012 


2362 024016 004737 024760 JSR PC, CHKMAX 
2363 024022 004737 025124 JSR PC, DUMP 
2364 024026 ENDMSG 

024026 

024026 104423 
2365 
2366 024030 BGNMSG EN 

024030 
2367 024030 PRINTB #EMG8,ERFLA 


024030 013746 032140 
024034 012746 024657 
024040 012746 000002 
024044 010600 
024046 104414 
024050 062706 000006 


2368 024054 004737 024760 JSR PC, CHKMAX 
2369 024060 004737 025124 JSR PC ,DUMP 
‘2370 024064 ENDMSG 
024064 
024064 104423 
2371 
2372 024066 BGNMSG EGBDEC 
024066 
2373 024066 RFLAGS RO 
024066 104421 
2374 024070 032700 020000 BIT @IER,RO 
2375 024074 001036 BNE 10$ 


2376 024076 PRINTB #EMG9A 


! 





SEQ 0060 
TRAP C$MSG 
EAAAF:: 
print "AAFO1, ADFO1" 
MOV R2,-(SP) 
MOV #EMG6 , -( SP) 
MOV SP,RO 
_ TRAP C$PNTB 
ADD #10,SP 


check for too many errors 
dump registers if dumping selected 


L10013: 
TRAP C$MSG 


ECHGB: : 
print "CHANNEL, GOOD, BAD” 
MOV BAD, -CSP) 
GOOD 


ADD #12,SP 
check for too many errors 
dump registers if dumping selected 


L10014: 
TRAP C$MSG 


EN:: 
print “ERROR NUMBER” 


MOV ERFLA,-(SP) 
MOV #EMGS, -( SP) 
MOV #2,-(SP) 
MOV SP, 

TRAP CSPNTB 

ADD #6, SP 


check for too many errors 
dump registers if dumping selected 


L10015: 
TRAP C$MSG 


EGBDEC: : 
don't print anything if 
TRAP CS$RFLA 
error reporting is inhibited 


print "GOOD: ” 


' 
eee eee oe eee = 


| GLOBAL AREAS 
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2377 
2378 


024076 
024102 
024106 
024110 
024112 
024116 
024122 
024122 
024126 
024132 
024134 
024136 
024142 
024144 
024146 
024152 
024152 
024156 
024162 
024164 
024166 
024172 
024176 
024202 
024202 
024202 


024204 
024234 
024303 
024347 
024443 
024526 
024555 
024610 
024657 
024704 
024714 
024740 


ee ee 


J5 
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012746 
012746 
010600 
104414 
062706 
004737 


012746 
012746 
010600 
104414 
062706 
010301 
010402 
004737 


012746 
012746 
010600 
104414 
062706 
004737 
004737 


024704 
000001 


000004 
027640 


024714 
000001 


000004 


027640 


024740 
000001 


000004 
024760 
025124 


101 
101 
101 
101 
101 
101 
101 
101 
101 
101 
101 
101 


JSR 
PRINTB 


MOV 
MOV 
JSR 
PRINTB 


10$: JSR 
JSR 
ENDMSG 


-NLIST 
107 GOOBAD: .ASCIZ 
122 EMG1: -ASCIZ 
103 EMG2: -ASCIZ 
116 EMGS: -ASCIZ 
107 EMG4: -ASCIZ 
123. EMGS: -ASCIZ 
101 EMG6: -ASCIZ 
103. EMG7: -ASCIZ 
105 EMG8: -ASCIZ 
107 EMG9A: .ASCIZ 
040 EMG9B: .ASCIZ 
040 EMG9C: .ASCIZ 


SEQ 0061 


MOV #EMG9A , -( SP) 


MOV #1,-CSP) 
MOV SP ,RO 
TRAP C$PNTR 
ADD #4,SP 
PC ,DECOUT s Print “xxxxx. xxx" 
#EMG9B ; “MILLIVOLTS, BAD:” 
MOV #EMG9B , - (SP) 
MOV #1,-CSP) 
MOV SP ,RO 
TRAP C$PNTB 
ADD #4 ,SP 
R3,R1 + get BAD values 
R4,R2 ; in R1 and R2 
PC ,DECOUT s Print “xxxxx. xxx” 
#EMG9OC ; “MILLIVOLTS” 
MOV #EMG9OC , - CSP) 
MOV #1,-CSP) 
MOV SP ,RO 
TRAP C$PNTB 
ADD #4,SP 
PC, CHKMAX ; check for too many errors 
PC ,DUMP ; dump registers if dumping selected 
L10016: 
TRAP C$MSG 
BEX 


7#AGOOD : #068A, BAD: S068N/ 

/SAREGISTER AT #068A DOES NOT RESPONDSN/ 

/#ACTA: #068A, GOOD:8068A, BAD: 8068N/ 

/SANUMBER OF INTERRUPTS: #sD2sA, SCR GOOD: 100600, BAD: #s06sN/ 
/%AGOOD: 806A, BAD: S068A, CHAN15:#048A, CHANO:8048N/ 
/#ASCR:8068A, ACS: S068N/ 

/SAADFO1:8TSA, AAFO1L-A:8TSN/ 

/#ACHANNEL :8D28A, GOOD: 8048A, BAD: #048N/ 

/#AERROR NUMBER: 8D1SN/ 

/#AGOOD: / 

/#A MILLIVOLTS, BAD:/ 

/#A MILLIVOLTS#SN/ 


-LIST BEX 


- EVEN 


KS 
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SEQ 006 
, GLOBAL SUBROUTINES SECTION . 
2404 .SBTTL GLOBAL SUBROUTINES SECTION 
2405 
2406 3 
2407 ; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
2408 ; THAT ARE USED IN MORE THAN ONE TEST. 
2409 — 
2410 
aaah ; Subroutine CHKMAX - Error count checking routine. 
241 : 
2413 poe 
2414 ; Functional description : 
2415 H 
2416 ; Subroutine to update unit error count. If the program is looping 
2417 ; on an error, the subroutine does nothing. Otherwise, the error 
2418 3 count for the unit is incremented. If the error count exceeds 5 
2419 ; and the user flag EVL has been selected and the flag IDU is not 
oe ; selected, the unit is dropped from the test cycle. 
; 
2422 ; Inputs : 
2423 H 
2424 3 None. 
2425 ; 
2426 ; Implicit inputs : 
2427 : 
2428 ; L$LUN contains the number of the unit currently being tested. 
44 3 ECNT is the address of the error count for unit 0. 
2430 ; 
2431 ; Outputs : 
2432 H 
2433 ; None. 
2434 ; 
2435 ; Implicit outputs : 
2436 3 
2437 ; The error count for the logical unit being tested is 
2438 ; incremented if the program is not looping. 
2439 ; 
2440 ; Subordinate routines used : 
2441 ; 
2442 $ None. 
2443 F 
2444 ; Functionel side effects : 
2445 ; 
2446 8 If the error count exceeds 5 and the user EVL flag is selected, 
2447 F and the ‘loop on test’ and ‘inhibit dropping of units’ flags are 
oes ; not selected, the unit will be dropped from testing. 
244 : 
2450 ; Calling sequence : 
2451 ; 
2452 ; JSR PC, CHKMAX 
2453 F 
| 2454 = 
; 2455 
| 2456 024760 CHKMAX: : INL OOP : looping on error? 
024760 104420 TRAP CsINe 
| 2457 024762 BCOMPLETE 10% ; if yes, exit 
none 024762 103436 Bcs 108 


L5 
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SEQ 0063 
GLOBAL SUBROUTINES SECTION 
2459 024764 013700 002074 MOV L$LUN,RO ; get current unit 
2460 024770 006300 ASL RO ; convert to error count offset 
2461 024772 005260 002710 INC ECNTC(RO) ; update the error count 
2462 024776 026027 002710 000005 CMP ECNTCRO), #5 ; too many errors? 
eee 025004 003425 BLE 10$ ; if not, jump 
| 2465 025006 RFLAGS RO ; get operator flegs 
025006 104421 TRAP CS$RFLA 
| 2466 025010 032700 000040 BIT — @IDU, RO : is dropping inhibited? 
2467 025014 001021 BNE 10$ ; if yes, exit 
2468 025016 032700 000004 BIT #EVL ,RO ; evaluate flag selected ? 
ote 025022 001416 BEQ 10$ ; if not, exit 
2471 025024 PRINTF #NERRS,LS$LUN ; ‘TOO MANY ERRORS' 
025024 013746 002074 MOV L$LUN, -(SP) 
025030 012746 025062 MOV @NERRS , - (SP) 
025034 012746 000002 MOV @2,-(SP) 
025040 010600 MOV »RO 
025042 104417 TRAP CSPNTF 
025044 062706 000006 ADO 06,SP 
2472 025050 DODU L$LUN ; drop the unit 
025050 013700 002074 MOV L$LUN,RO 
—_— 025054 104451 TRAP C$s000uU 
2474 025056 DOCLN ; end the subpess 
7 025056 104444 TRAP CsOCLN 
2476 025060 000207 10$: RTS PC 
2477 
2478 -NLIST BEX 
2479 025062 045 116 045 NERRS: .ASCIZ /sSNSAMORE THAN 5S ERRORS ON UNIT#D2/ 
2480 .LIST BEX 
2481 -EVEN 
| 
| 


GLOBAL AREAS 


2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 


2523 025130 
2524 025132 


M5 


MACRO VOS.00 Friday 01-Feb-85 08:58 Page 47 
GLOBAL SUBROUTINES SECTION 


005737 
001901 
000207 


017737 
012777 
017737 
012777 
017737 
012777 
017737 


013746 
013746 
013746 
012746 
012746 
010600 


; Subroutine DUMP - Register dump routine. 


ee 


Inputs : 
None. 


Outputs : 


Functionel description : 


Implicit inputs : 


RDUMP - if 0, no dump is made. 


Implicit outputs : 


None. 
Subordinete routines used : 
None. 
Functionel side effects : 
None. 
CALLING SEQUENCE: 
JSR PC ,DUMP 
DUMP:; TST 
BNE 10$ 
RTS PC 
025556 10%: MOV @ORXDBR .RS-14 
155464 MOV @ACS.@ORXDBR 
025542 MOV @ORXDBR RS 
155450 MOV OCTA, BORXDBR 
025544 MOV @ORXDBR .RS-2 
155434 MOV OCWR , BORXDBR 
MOV @ORXDBR .RS+4 
PRINTB @DMP1,RS,RS+2,RS+4 


A dump of the AAFO1-A and DRX11-C registers is printed. 


is dumping selected ? 
if yes, brench 
else return 


seve the DBR 

eddress the ACS 

end seve its contents 
eddress the CTA 

end seve its contents 
eddress the CwR 

end seve its contents 
dump ACS, CTA eng CUR 


Subroutine to print ea dump of the DRX11-C and AAFO1-A registers 
following en error printout. A dump is meade only if RD i 
set to 1 using the startup softwere questions. 


SEQ 0064 


oo 


N5 
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SEQ 0065 


GLOBAL SUBROUTINES SECTION 


025234 
025236 


025242 
025250 
025256 
025264 
025264 
025270 
025274 
025300 
025304 
025310 
025314 
025316 
025320 


025324 
025332 
025340 
025346 


104414 
062706 


017737 
017737 
017737 


013746 
013746 
013746 
013746 
012746 
012746 
010600 
104414 
062706 


012777 
017737 
012777 
017737 
012777 
017737 
012777 
017737 


012777 
017737 
012777 
017737 


013746 
013746 
012746 
012746 
010600 
104414 
062706 


013777 
013777 


000207 
000000 


000012 


155360 
155354 
155350 


025556 
025554 
025552 
025550 
025652 
000005 


000014 


000000 
155274 


001400 
155230 


025566 
025564 
025562 
025560 
025744 
000005 


000014 


002000 
155154 
002400 
155140 


025572 
025570 
026036 
000003 


000010 


025552 
025556 


025550 
025552 
025554 


155276 


155156 
025570 
155142 
025572 


155076 
155074 





RS: 


MOV 
MOV 


MOV 
PRINTB 


RTS 


@ORXSCR ,RS*6 
@ORXCOR ,RS+10 
@ORXADR ,RS+12 


@BAR1 , BORXCOR 
@ORXADR ,RS+16 
@WCR1, BORXCOR 
@ORXADR ,RS+20 
OBAR2 , BORXCOR 
@ORXADR ,RU+22 
OWCR2 , BORXCOR 
@ORXADR ,RS+24 


@OMPS .RS+16,RS+20,RS+22, RS. 24 ; dump BARI, 


@WCO, BRXCOR 
#ORXADR ,RS+26 
@ACO, BORXCOR 
@ORXADR ,RS+30 


ODMP4 ,RS+26,RS+30 


RS+10,@0RXCOR 
RS+14, @ORXDBR 


iy 
‘ 


seve the SCR 


; end ADR 
@0MP2, RS+6, RS+10,RS+12,RS+14 ; dump SCR, COR, ADR ~ OBR 


eddress BARI 
end seve its 
eddress WCR1 
end seve its 
eddress BAR2 
end seve its 
eddress WCR2 
end seve its 


eddress WCO 
end seve its 
eddress AC 
end sve its 
dump CO end 


TRAP 
AOD 


contents 
contents 
contents 


contents 


contents 


contents 
ACO 


restore the COK 


and the DBR 


store for ACS contents 
store for CTA contents 
store for CWR contents 





CSPNTB 
#12,SP 


RS+14, 


WCR1, BAR2 end WCR2 


RS+24, -¢ 


 -case = ee ee —- 


Bé 
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2564 025550 000000 WORD 0 ; store for SCR contents 

2565 025552 000000 WORD 0 ; store for COR contents 

2566 025554 000000 WORD i?) 3; store for ADR contents 

2567 025556 000000 WORD O ; store for DBR contents 

2568 025560 000000 WORD 0 ; store for BARI contents 

2569 025562 000000 WORD i?) ; store for WCR1 contents 

2570 025564 000000 WORD 0 ; store for BAR2 contents 

2571 025566 000000 WORD 0 ; store for WCR2 contents 

2572 025570 000000 WORD O ; store for WCO contents 

pad 025572 000000 WORD 0 ; store for ACO contents 

2575 -NLIST BEX 

2576 025574 045 101 101 OMP1: -ASCIZ /sSAAAFO1-A ACS: 068A, CTA: 068A, CWR: S06SN/ 

2577 025652 045 101 104 OMP2: -ASCIZ /#ADRX11-C SCR: 068A, COR: 068A, ADR: SO68A, DBR: S068N/ 
2578 025744 045 101 040 DMP3: -ASCIZ /sA BAR1:s068A, WCR1:S068A, BAR2:s068A, WCR2:s068N/ 
2579 026036 045 101 040 DMP4; -ASCIZ /#A WCO: 068A, ACO: SO6SN/ 

2580 .LIST BEX 

2581 EVEN 


| 
| 
| 


me ee 
ees 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


026100 
026104 


026106 
026112 


026114 
026120 


026122 
026124 
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013700 
000405 


013700 
000402 


013700 
005300 


001376 
000207 


026126 


026130 


026132 


C6 


Subroutines WT25M, WTSOO AND WT25 - Delay routines. 


; Functional description : 


Subroutine to wait for 25 milliseconds, 500 microseconds or 25 
microseconds. 


Note. 


; Inputs : 


None. 


Because of the small number of program wait loops used for 
the 25 microsecond counter, the accuracy of the W725 routine 
is low. The delay may last up to 50 microseconds on some 
slow processors. 


; Implicit inputs : 


The variables CNT25M, CNTSO0O, and CNT25 must have been set up by 
routine SETCLK. 


None. 


; Implicit outputs : 


None. 


; Subordinate routines used : 


None. 


; Functionel side effects : 


None. 


; Calling sequence : 


; 
3 
F 
; Output 
3 
. 





PC,WT25M 
PC,WTSOO 
PC,WT25 


CNT25M,RO 
WT 
CNTSOO,RO 
WT 


CNT25,R0 


weit for 25 milliseconds 
wait for 500 microseconds 
wait for 25 microseconds 


get 25 millisecond wait count 
get 500 microsecond wait count 


get 25 microsecond wait count 


ell done? 
if not, wait some more 
else return 


SEQ 0067 


; 
eee oe oe eee =o 


GLOBAL AREAS 


, GLOBAL SUBROUTINES SECTION 


2641 
2642 026126 000000 
2643 026130 000000 
2644 026132 000000 
2645 





D6 
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CNT25M: : .WORD 0 
CNT500: : .WORD 0 
CNT25:: .WORD 0 


; counter for 25 millisecond delay 
; counter for 500 microsecond delay 
; counter for 25 microsecond delay 


SEQ 0068 


eameiermene cement 


<< a LLL LLL LLL LLL LL LLL LLL LL! LLL LL LL A A OL A 


GLOBAL AREAS 


026134 
026134 
026134 
026140 
026144 
026146 
026150 
026154 


026156 


E6 
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GLOBAL SUBROUTINES SECTION 


012746 026156 
012746 000001 
010600 
104417 
062706 000004 
000207 


045 116 


Subroutine CRLF - Routine to print carriage return, line feed. 


*¢ 


Functional description : 
Prints a carriage return and line feed. 
Inputs : 
None. 
Implicit inputs : 
None. 
Outputs : 
A carriage return and line feed are printed. 
Implicit outputs : 
None. 
Subordinate routines used : 
Supervisor PRINTF macro. 
Functional side effects : 
None. 


Calling sequence : 


JSR PC, CRLF 
CRL 
PRINTF #LF 
RTS PC 
LF: -ASCIZ /sN/ 
EVEN 


SEQ 0069 


i 
ee ee ee ee eee = + 


ee a a A 


—— ee ee ee ae. - 


F6 


| GLOBAL AREAS MACRO VOS.00 Fridey 01-Feb-85 08:58 Page 50 
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2691 ; Subroutine WRDY - Subroutine to wait for operator ready 


to continue. The routine is normally used to allow a message to 
be read before proceding. 


Inputs : 
None. 
Implicit inputs : 
None. 
Outputs : 
“TYPE ‘CARRIAGE RETURN’ TO CONTINUE OR ‘CONRTOL C’ TO ABORT” 
Implicit outputs : 
None. 
Subordinate routines used : 
Supervisor GMANID macro. 
Functional side effects : 
None. 
Calling sequence : 


JSR PC,WRDY 


Las) 
~“ 
ee 
w 


2732 026162 WRDY: : 


If manual intervention is not allowed, the routine does nothing. 


ei 


2733 026162 MANUAL ; is manuel intervention allowed ? 


026162 104450 TRAP 
2734 026164 BNCOMPLETE 10% ; if not, exit 
026164 103010 BCC 
2735 026166 GMANID WRDY1,WFLG,A,377,0,1,YES ; ‘type return to continue’ 
026166 104443 TRAP 
026170 000406 BR 
026172 026210 . WORD 
026174 000152 . WORD 
026176 026212 . WORD 
026200 000377 . WORD 
026202 000000 . WORD 
626204 000001 . WORD 
026206 10000$: 


| 2692 
2693 p44 
ote Functional description : 
6 . 
2696 ; This prints a message for the operator to type ‘carriage return’ 
j 2736 026206 000207 10$: RTS PC 
! 


C$MANI 


T$LOLIM 


SEQ 0070 


omni EE 


, G6 
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SEQ 0071_:~=SCS 
| S.C8AL SUBROUTINES SECTION | 
| 2737 
2738 026210 000000 WELG: .WORD 0 ; flag for input 
2740 .NLIST BEX 
2741 026212 124 131 120 WRDY1: -ASCIZ /TYPE "CARRIAGE RETURN" TO CONTINUE OR “CONTROL C” TO ABORT./ 
tL x 


2743 .EVEN 


—_— ~ eee ee 


~_— i ee ee a ae ae eee 


H6 
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| 
i = 2745 
2746 


SEQ 0072 


++ 


| 
| 
Subroutine INSERT - Subroutine to force error printouts | 
Functional description : | 


This subroutine can be used to force printout of error messages 
for quality checking. If the instruction at location "INSERT" is 
equal to 402, the branch instruction following the subroutine 
call is skipped over, causing the error message to be printed. 

If the location contains 401, the address of the subroutine call 
is compared with that of the last call and, if it has not changed, 
the message is not printed. 


Inputs : 
Location “INSERT” - if 400 the routine does nothing. 


if 401 error messages are printed once. 
if 402 error messages are always printed. 


Implicit inputs : 


Outputs : 


LASTFA - if the error message is to be printed once only, LASTFA 
is loaded with this subroutine return address. 


Implicit outputs : 
None. 

Subordinate routines used : 
None. 

Functionel side effects : 
RO is destroyed. 

Calling sequence : 


A one word branch instruction must follow the subroutine call 
before the error print call. 


Eg. CMP BAD ,GOOD 
CALL INSERT 
BEQ 10$ 
ERROR 


register correct ? 

skip branch if error insert selected 
branch if register correct 

else print out error message 


~ 
~ 
~J 
oO 


2796 

2797 026306 INSERT: : 
2798 026306 000400 BR 10$ 
2799 026310 000207 10$; 
2800 026312 000401 208: BR 40$ 
2801 026314 000412 30$: BR 50$ 


! 

| 

| 

i 

| 

See calling sequence. 
i 


400=10$, 401=20%, 402=30% 

don't force error printing 
print each error once ' 
print every error message 


D 
or 
w 
v 
o 


| j 





— ee ee ee 


16 
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2802 026316 013700 026350 40$: MOV LASTFA,RO 
2803 026322 011637 026350 MOV (SP),LASTFA 
2804 026326 021600 CMP (SP),RO 
2805 026330 001004 BNE SO0$ 

2806 026332 117600 000000 MOVB ac SP),RO 
2807 026336 006300 ASL RO 

2808 026340 060016 ADD RO, (CSP) 
2809 026342 062716 000002 SO$: ADD #2, CSP) 
eerk 026346 000207 RTS PC 

2812 026350 000000 LASTFA: .WORD 0 


2813 


SEQ 0073 


get last fault address 

save new fault address 

are they the same ? 

if not, print the error 

else get the return branch offset 
convert to a byte offset 

skip over the error printout 

add 2 to the return address 

and return 


address of routine call 


ee oeeeeeeeeeeeeeSe—‘“_“_ ee ee——“‘“_— 


| GLOBAL AREAS 
' GLOBAL SUBROUTINES SECTION 


2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 


026352 
026352 
026354 
026356 
026360 
026364 
026370 
026372 


026376 
026400 
026402 


a 


J6 
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SEQ 0074 


; Subroutine DACON - Digital to analogue conversion routine. 


3+ 
Functional description : 


output value. 


Implicit inputs : 
VITAB and ITAB 
Outputs : 
R1 - millivolts 
R2 - microvolts 
Implicit outputs : 
None. 


None. 

Functional side effects : 
None. 

Calling sequence: 

Eg. MOV #1,MODE 


MOV #7777,R1 


; 
i 
; 
; 
; 
; 
; 
; 
; 
i 
; 
; 
; 
; 
i 
i 
; 
; 
; 
i 
i 
; 
i 
i 
; 
i 
i 
i 
; 
i 
; 
i 
i 
i 
; 
i 
i JSR PC ,DACON 
; 

i 


DACON:: 
010346 MOV R3,-(SP) 
010446 MOV R4,-CSP) 
005101 COM R1 
012700 023042 MOV #VUPTAB ,RO 
005737 003026 TST MODE 
001402 BEQ 20$ 
012700 023122 MOV @VBPTAB ,RO 
011004 20%: MOV (RO),R4 
010103 MOV R1,R3 


005001 CLR R1 


—<—-— 





This converts a 12 bit digital pattern into a 2 word analogue 


Inputs : 
MODE : O = unipolar (0 to 10 volts) complementary binary coded 
1 = bipoler (-10 to +10 volts) complementary offset binary coded 
R1 : 12 bit input pattern. 


: digital/analogue conversion tables. 


Subordinate routines used : 


; bipoler conversion 
; ell bits set 


; save R3 

; and R4 

; complememt the date 

; get conversion table for mode 0 
; mode 0 ? 

; if yes, branch 

; get conversion table for mode 1 


; save high bit value 
; save the bit pattern 
; clear the output registers 





ee ee oe ee eee 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


| 
| 
| 


2872 
2873 
2874 
2875 


026404 
026406 
026410 
026412 
026414 


026416 
026420 
026422 
026426 
026432 
026434 
026440 
026442 
026444 
026450 
026452 


026454 
026462 
026464 
026466 
026470 
026472 
026474 
026500 


026502 
026504 
026506 


——— ee ee 
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023727 
001007 
160401 
002005 
005702 
001403 
162702 
005201 


012604 
012603 
000207 


000030 
001750 


001750 


000002 


003026 


001750 


000001 


50$: 


60$: 
70$: 


80$: 


CLR 
ASL 


70$ 
24.(RO),R2 
R2,#1000. 


(SP)+,R4 
(SP)+,R3 
PC 


K6 


—_—_—_— -— 


shift out unused bits 


( bits 15 - 12 ) 


test a bit 


if clear, brench 


else add in low value 
overflow of low word ? 


if not, branch 


else carry from low word 


to high word 


and add in high value 
get next table entry 
all bits processed ? 
if not, do more bits 


bipolar voltage conversion ? 


if not,branch 
else make bipolar 


if still positive, branch 


decimal part zero ? 
if yes, branch 


else borrow from high part 


restore R4 
and R3 


SEQ 0075 


i TS 


L6 
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SEQ 0076 
GLOBAL SUBROUTINES SECTION 
Soe ; Subroutine ADCON - Analogue to digital conversion routine. 
| 2905 yee 
| 2906 ; Functional description : 
2907 ; 
2908 3 This converts a 2 word analogue value into a 12 bit digital output 
| toy 3 pattern. The input is rounded up or down to the nearest lsb value. 
: 
2911 ; Inputs : 
2912 ; 
2913 3 mode : 0 = unipolar (0 to 10 volts) complementary binary coded 
cote : 1 = bipoler (-10 to +10 volts) complementary offset binary coded 
; 
2916 3 R1 - millivolts 
2917 ; 
2918 3 R2 - microvolts 
2919 H 
2920 ; Implicit inputs : 
2921 : 
cost ; VITAB and ITAB : digitel/analogque conversion tables. 
3 
2924 ; Outputs : 
2925 H 
2926 ; Ri : 12 bit input pattern. 
2927 : 
2928 ; Implicit outputs : 
2929 3 
2930 3 None. 
2931 3 
2932 ; Subordinate routines used : 
2933 H 
2934 : None. 
2935 : 
2936 ; Functional side effects : 
2937 : 
2938 PF R2 is destroyed. 
2939 F 
2940 ; Celling sequence : 
2941 $ 
2942 ; Eg. MOV #1 ,MODE ; bipoler conversion 
2943 ; MOV @-4,R1 ; -4.001 MILLIVOLTS 
2944 3 MOV #-1,R2 s im RIZR2 
2945 ; JSR PC ,ADCON 
2946 $ 
2947 geo 
2948 
2949 026510 ADCON: : 
2950 026510 010346 MOV R3,-CSP) ; seve R3 
2951 026512 010446 MOV R4,-C(SP) s end R4 
2952 026514 012700 023042 MOV @VUPTAB ,RO + get conversion table for mode 0 
2953 026520 005737 003026 TST MODE ; unipoler mode ? 
2954 026524 001413 BEQ 303% 3; if yes, brench 
| 2955 026526 012700 023122 MOV @VBPTAB ,RO ; else get conversion teble for mode | 
| 2956 026532 061001 ADO (RO),R1 ; end convert bipoler to unipoler 
| 2957 026534 020127 023420 CMP R1,010000. ; wes previous velue negative ? 
2°58 026540 001005 BNE 30% ; if not, brench 
: 


is decimal pert zero ? 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


026544 
026546 
026552 


026554 
026560 
026564 
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001403 
062702 
005301 


060301 
012703 


020110 
002415 
003003 
020260 
002411 


001750 


000026 
000056 


001000 


001750 
001750 


000020 


000030 


000030 
001750 


000001 
000002 


170000 


30$: 


40$: 


50$: 


60$: 


708; 


30$ 
#1000. »R2 
Ri 


22.(RO),R3 
46.(RO),R4 


R3,R1 
020,R3 
R1,(RO) 
90$ 

70$ 
R2,24.(RO) 
90$ 


24.(RO),R2 
80 


M6 


if yes, branch 
else borrow from high part 


get rounding values from lowest 
significant bit 

divide by 2 

if no cerry skip next commend 
edd cerry 

didide by 2 

round up the input velue 

lower pert is modulo 1000 


if overflow, carry over to 

high part 

edd in high pert of rounding factor 
initielise working register 


compere high value with teble entry 
if less, don't set bit 

if more, set the bit 

otherwise, must check the low value 
if less, don't set the bit 


subtrect the teble entries 
branch if no borrow needed 
else add to low word 

from high word 

end low words 

and set the output bit 

and next teble entry 

reedy for next bit 

if l2 bits not done, go back 


get the pettern in 
set up output register 
end complement it 
isolete low 12 bits 
restore R4 

and R> 


SEQ 0077 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


N6 
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; Subroutine DECIN - Signed decimal input routine. 


3ee 


Functional description : 


This solicits a signed decimal number from the operator. 


Inputs : 


The locations following the routine cell should contain the 
eddress of the input prompt string followed by ean address et which 


to store the new input strin 
be in ASCIZ FORMAT ( eg. 


(11 bytes). The prompt string should 
-ASCIZ /INPUT VALUE/ ). The store for 


the input string should contein a default string in ASCIZ formet. 


The operator is prompted for ae number which cen be up to 10 digits 
long including en optionel + or - sign and decimal point. 


Implicit inputs : 


None. 


Outputs : 


Rl - integer pert of operetor input 
R2 - decimel pert of operetor input 


Implicit outputs : 


Error messeges ere printed if the operetor types en illegel cheracter, 
en integer pert over 32767, or @ decimel pert with more then 3 digits. 


Subordinete routines used : 


None. 


Functionel side effects : 


None. 


Celling sequence : 


EG. JSR 
PADD 
SADOD 


PC,DECIN 


@( SP) ,RO 
62,(SP) 
@GETNUM,R1 
CRO)+, CRI) 


eddress of prompt message 
eddress for input string 


get the prompt string eddress 
end skip to number string eddress 
copy prompt string to 

eddress GETNUM 

until nul byte is found 

get eddress of number store 
conteins 10 bytes 


SEQ 0078 


Nn 


! 
| GLOBAL AREAS 


3092 027114 
3093 027116 
3094 027120 


3096 027122 
3097 027124 


' 3099 027126 
| 3100 027132 
3101 027134 
3102 027140 


3104 027142 
027142 
027146 


- ——— —— Ee ee 
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012701 


121027 
001430 
121027 
001425 
121027 
001017 


012701 
105760 
001003 
112760 
105760 
001007 
112760 
000403 


105710 
001451 
000402 


005200 
000751 


121027 
002403 
121027 
003411 


000071 


027610 
000001 


000002 


000003 


20$: 


30$: 
40$: 


50$: 
60$: 


70$: 


100$: 


110$: 


1208: 


130$: 


PRINTF 


B/ 


Page 54-1 


C(RO)+ 
R1 


20$ 

aC SP),RO 
@SNUM,R1 
(RO), @' 


50$ 
CRO),CR1)+ 
60$ 

RO 

40$ 


clear the number store 


ell cleared ? 


if not, clear another byte 
get the current number string sdcress 
copy current number to address SNUM 


don't copy speces 


copy everything else 


stop efter nul byte copied 


point to next input character 


and copy it 


GETNUM,SNUM,A,-1,0,10.,YES ; get the number string 
RAP 


NR1 

NR2 
@SNUM , RO 
@NR1,R1 


(RO), @' + 
110$ 
(RO), @' - 
110$ 
(RO),@'. 
100$ 


@ONR2 ,R1 
2(RO) 


90$ 
#'0,2(RO) 
3(RO) 
110$ 
#'0,3(RO) 
110$ 

(RO) 

160$ 

120$ 


RO 
70$ 


(RO), 060 


@DECINS 


1000. $: 


clear the number stores 


point to the start 


assume integer part first 


is lst character a+ ? 


if yes, branch 


is itea- ? 
if yes, branch 
is ite. 


if not, branch 


start on decimal part 


force to 3 digits 
ie. replace nulls 


with zeros 


end of string ? 
if yes, finish up 
else get next digit 


skip over the sign or point 


is cheracter ea valid number ? 
if too low, ask again 


if not too high, branch 


print 


‘illegal character’ 


MOV 
MOV 





SEQ 0079 


TSLOLIM 
TS$HILIM 


@DECINS, -( SP) 
@1,-(50° 


-_—_——-- —- 


mm mn i 


GLOBAL AREAS 


C7 
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GLOBAL SUBROUTINES SECTION 


027152 
027154 
027156 
3105 027162 


3107 027164 
3108 027170 


3110 027172 
3111 027174 
3112 027176 
3113 027200 
3114 027202 


3116 027204 
3117 027206 
3118 027212 
3119 027214 


3121 027216 


3123 027220 
027220 
027224 
027230 
027232 
027234 

3124 027240 


3126 027242 


027266 
3129 027272 


3131 027274 
3132 027300 
3133 027304 
3134 027306 
3135 027310 
3136 027314 
3137 027320 
3138 027326 
3139 027330 
3140 027332 


3142 027334 
3143 027340 


3147 027342 
3148 027344 


010600 
104417 
062706 
000671 


021127 
101013 


006311 
011102 
006311 
006311 
060211 


112002 
162702 
060211 
100401 


000714 


103411 


017601 
012700 
112021 
001376 
013701 
013702 
123727 
001002 
005401 
005402 


062716 
000207 


000000 


006314 


000060 


027471 
000001 


000004 


027344 


027527 
000001 


000004 


000000 
027346 


027342 
027344 
027346 


000002 


001750 


000055 


140$: 


150$: 


160$: 


170$: 
180$: 


1908: 


NR1: 
NRe: 


BR 
PRINTF 


BR 
CMP 


BLO 
PRINTF 


-NLIST 


. WORD 
. WORD 





30$ 
(R1), #3276. 
150$ 


(R1) 
(R1),R2 
(R1) 
(R1) 
R2,(R1) 


CRO)+,R2 
#60 ,R2 
R2,(R1) 
150$ 


70$ 
#DECINI 


30$ 


NR2, #1000. 
170$ 
#DECIN2 


30$ 


acSP),R1 
@SNUM ,RO 
CRO)+,CR1)+ 
180$ 

NR1,R1 

NR2 ,R2 
SNUM, #' - 
190$ 

R1 

R2 


#2,(SP) 
PC 
BEX 


ie) 
0 


- oF © © © of ee @ oe oF 


SEQ 0080 


and ask agein 


number too high ? 
if yes, branch 


else multiply by 10 


ready for next character 


save the character 
convert to number 

and add to accumulator 

if overflow, report error 


and get next cheracter 
print ‘number too big’ 


MOV @DECIN1, -( SP) 
MOV #1,-(CSP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04,SP 
and get another 
decimal part too big ? 
if not, branch 
print ‘only 3 digits allowed’ 
MOV @DECIN2, -( SP) 
MOV #1,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04 ,SP 


get the current number string address 
copy current number to 

string store 

until nul byte is found 

set up output registers 


was string negative ? 
if not, branch 
else negate the output 


skip over the second argument 
and return 


store for integer part 
store for decimal part 


= ene 4 


GLOBAL AREAS 


_ GLOBAL SUBROUTINES SECTION 


3149 
3150 


027346 


027361 
027471 
027527 
027610 


D7 
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oss 


061 


116 
116 
116 


062 SNUM: 


GETNUM: 
O45 DECINI: 
045 DECINe: 
045 UECIN3: 


-ASCIZ 


-BLKB 

-ASCIZ 
-ASCIZ 
-ASCIZ 


-LIST 
-EVEN 


/-12345.678/ ; store for input string 
we. ; store for input prompt 
/*SNSAMUST BE LESS THAN 327688N/ 

/#NSAONLY 3 DIGITS MAY FOLLOW THE DECIMAL POINTSN/ 
/SNSAILLEGAL CHARACTERSN/ 


BEX 


SEQ 0081 


GLOBAL AREAS 
_ GLOBAL SUBROUTINES SECTION 


3159 
3150 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 


027640 
027640 
027642 


027644 
027646 
027650 
027652 
027654 
027656 
027660 
027660 
027664 
027670 
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010146 
010246 


012746 
012746 
010600 


027756 
000001 


ee ee a —_—— 


SEQ 0082 


; Subroutine DECOUT - Signed decimal output routine 


os © oF Se Se ee ee SH Ge Se Se os SH we Ge Ge os Se Se we SF Ge Ge Se SS os SH Be Ge SH Ge OF GF Se Se SH Se Se we © 


3; 


Functional description : 
Routine to print a signed decimal 
Inputs : 


Rl - integer part of number to be 
R2 - decimal part of number to be 


Implicit inputs : 
None. 
Outputs : 


The number is printed as follows : 


( no sign is printed for positive 
if the decimal part (R2) is zero, 
is printed as -i2345 

Implicit outputs : 
None. 

Subordinate routines used : 
None. 

Functional side effects : 
None. 

Calling sequence : 

EG. MOV #-10.,R1 ; 


MOV #-1,R2 ; 
JSR PC,DECOUT 


DECOUT:: 
MOV R1,-(SP) 3 
MOV R2,-CSP) 3 
TST R1 3 
BLT 10$ ; 
TST Re ; 
BGE 20$ ; 

10$: NEG R1 3 
NEG R2 3 
PRINTF #DECO1 8 


— | _____Eneeneenall 


number . 


printed 
printed 


-12345.678 
numbers ) 
the number 


print -10.001 


save Rl 
save R2 


Rl >0O? 

if not, branch 

R2 positive ? 

if yes, branch 
else make positive 


and print '-' 
MOV #DECO1, -( SP) 
MOV SP ,RO 





‘ 
ee ee oe ee ed 


wees ee 


a ee 


me ee eee 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


3213 
3214 


3215 
3216 
3217 


027672 
027674 


027700 
027700 
027702 
027706 
027712 
027714 
027716 
027722 
027724 
027726 
027726 
027730 
027734 
027740 
027742 
027744 
027750 
027752 
027754 


027756 
027762 
027766 


ee ee ee 
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104417 
062706 


010146 
012746 
012746 
010600 
104417 
062706 
005702 
001411 


010246 
012746 
012746 
010600 
104417 
062706 
012602 
012601 
000207 


000004 


027762 
000002 


000006 


027766 


000002 


000006 


101 
104 
101 


0os5 
056 


20$: 


DECEX: 


DECOL: 
DECO2: 
DECO3: 


PRINTF 


TST 
BEQ 
PRINTF 


MOV 
MOV 
RTS 


-NLIST 
-ASCIZ 
-ASCIZ 
-ASCIZ 
.-LIST 
EVEN 


#DECO2,R1 


Re 
DECEX 
#DECO3,R2 


(SP)+,R2 
(SP)+,R1 
PC 


BEX 
/8R-/ 
/#DS/ 
/8A .8Z3/ 
BEX 


; print the integer part 


decimal part = 0 ? 
if yes branch 


; else, print decimal part 


MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 


; restore R2 
; and Rl 
; and return 


ee ee Cte - 


SEQ 0083 


C$PNTF 
#4,SP 


R2,-CSP) 
#DECO3, -(SP) 
#2,-CSP) 

SP ,RO 

C$PNTF 

#6 ,SP 





er i ce ce re re rr ee ee - 7 
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SEQ 0084 


} 

| GLOBAL SUBROUTINES SECTION 
| 

! 

| 

| 

i 


es50 ; Subroutine MUL - Multiplication routine. 
3231 3o4 
3232 ; Functional description : 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 


This multiplies a 32 bit value in R2 and R1 by a value either in RO or 
in the location following the subroutine call. 


Inputs : 


R2 - high word of multiplicand 
R1 - low word of multiplicand 


If entered at location MUL, the location following the subroutine 
call must contain the value of the multiplier. 


If entered at location MUL1, the multiplier should be placed in RO. 
In either case, the multiplier must be a positive number. 

Implicit inputs : 
None. 

Outputs : 


R2 - high word of result 
R1 - low word of result 


Implicit outputs : 


Subordinate routines used : 
None. 
Functional side effects : 
Locations RESH and RESL are used as storage and are altered. 
RO is destroyed. 
Calling sequence : 
Either a fixed multiplier follows the subroutine call : 
Eg. MOV HIGH ,R2 ; set up multiplicand high word 
MOV LOW,R1 ; and low word 
; 
; 


JSR PC, MUL 
100. 


multiply 
by 100. 


or the multiplier can be set dynamically : 


Eg. MOV HIGH,R2 ; set up multiplicand high word 
MOV LOW,R1 ; and low word 
MOV #100. ,RO ; multiplier is 100. 


If an overflow occurs, the carry bit is set. 


w 
ft 
oO 
ui 





| GLOBAL AREAS 
| GLOBAL SUBROUTINES SECTION 


| 3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 


027776 
027776 
030002 
030006 
030006 
030012 


030016 
030020 
030022 
030026 
030032 
030036 
030040 
030042 
030044 
030046 
030050 
030052 


030054 
030060 


030064 


030066 
030070 


———— ll ——— a 
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017600 
062716 


005037 
005037 


006200 
103007 
06C137 
005537 
060237 
103412 
005700 
001404 
006301 
006102 
103405 
000761 


013702 
013701 


000207 


000000 
000000 


000000 
000002 


030066 
030070 


030070 
030066 
030066 


030066 
030070 


10$; 


20$: 


JSR PC,MUL1 


acSP),RO 
#2, (SP) 


ARES ,R2 
LRES,R1 


PC 





SEQ 0085 


multiply 


get the multiplier 
jump over the argument 


clear the result high word 
and low word 


get a bit from the multiplier 
branch if bit was 0 

else add multiplicand * bit value 
to result 


branch if overflow 

all bits of multiplier used ? 
if yes, branch 

else double the multiplicand 
high and low words 

branch if overflow 

else do next bit 


save high word of result 
and low word 


and return 


high word of result 
low word of result 


er 


——— ee ie eneeeeneneanineneiennenee 


eal 





ee ee ee 
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| GLOBAL SUBROUTINES SECTION 


' 3318 ; Subroutine DIV - Division routine. 
H 3319 
3320 poe 
3321 Functional description : 
3322 
3323 
3324 
3325 
3326 


SEQ 0086 


This divides a 32 bit value in R2 and R1 by a value either in RO or 
in the location following the subroutine call. The result is rounded 
up or down to the nearest integer value. 

Inputs : 


R2 - high word of dividend 
Ri - low word of dividend 


If entered at location DIV, the location following the subroutine 
call must contain the value of the divisor. 


If entered at location DIVi, the divisor should be placed in RO. 
Implicit inputs : 

None. 
Outputs : 


R2 - high word of result 
R1 - low word of result 


Implicit outputs : 
None. 

Subordinate routines used : 
None. 

Functional side effects : 


Locations RESH, RESL, DIVH and DIVL are used as storage and are 
altered. 


RO is loaded with the divisor. 
Calling sequence : 
Either a fixed divisor follows the subroutine cell : 
Eg. MOV HIGH ,R2 ; set up dividend high word 
MOV LOW,R1 ; and low word 
JSR PC,OIV ; divide 
100. ; by 100. 
or the divisor can be set dynamically : 
Eg. MOV HIGH,R2 ; set up dividend high word 


MOV LOW,R1 ; and low word 
MOV #100. ,RO ; divisor is 100. 


w 
w 
vi 
°o 


| GLOBAL AREAS 


3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 


030072 
030072 
030076 
030102 
030102 
030106 


030112 
030114 
030116 
030120 


030122 
030126 
030132 
030140 


030144 
030150 
030152 
030154 
030160 
030162 
030166 
030172 
030176 
030202 


030204 
030210 


030270 
030274 


030276 
030302 


030306 


030310 
030312 


A 
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017600 
062716 


005037 
005037 


010046 
006216 
062601 
005502 


010037 
005037 
012737 
005037 


023702 
101015 
103403 
023701 
103011 
006337 
006137 
006337 
006137 
000760 


023702 


013702 
013701 


000207 


GLOBAL SUBROUTINES SECTION 


000000 
000002 


030066 
030070 


030312 
030310 
000001 
030314 


030310 


030312 


030312 
030310 
030316 
030314 


030310 


030312 
030312 


030310 
030316 
030066 
030314 


030310 
030312 
030314 
030316 


030066 
030070 


030316 


030070 
030066 


10$: CMP 


20$: ASL 


30$; CMP 


40$: SUB 


50$: ASR 


60$: MOV 


JSR PC,OIV1 


aC SP),RO 
#2,(SP) 


HRES 
LRES 


RO, -(SP) 


(SP) 
(SP)+,R1 
Re 


HRES ,R2 
LRES,R1 


PC 


- = oe o 


- = © © © oF oe oe Se oe oe 


ea eee + 


divide 


get the divisor 
jump over the argument 


clear the result high word 
and low word 


save the divisor 

divide it by 2 

add to the dividend to round 

the result up or down 

save divisor for multiplying up 
high word is zero 

initialize multiplier for divisor 
high word is 0 

is multiplied divisor greater than 
or equal to the dividend ? 

if yes, branch 

else, double the divisor 

and its multiplier 

and keep multiplying the divisor 
can we subtract multiplied divisor 
from the remainder ? 


if not, branch 

else subtract the multiplied divisor 
from the remainder 

and add the multiplier to the 

result 

half the multiplied divisor 

and its multiplier 

go back if multiplier is not zero 


save high word of result 
and low word 


and return 


high word of multiplied divisor 
low word of multiplied divisor 





SEQ 0087 


—_——_— 


‘ 
eee eee 
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GLOBAL SUBROUTINES SECTION 


| 3432 030314 000000 HMUL : -WORD O 


3433 030316 000000 LMUL ; -WORD O 


KK 7 


a eee ee. -- - - Se ene ae 


; high word of multiplier for divisor 
; low word of multiplier for divisor 


SEQ 0088 


L/ 
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GLOBAL SUBROUTINES SECTION 


3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 


3487 

3488 030320 

3489 030320 

3490 030332 017637 000012 030520 
3491 030340 062766 000002 000012 


Subroutine SETTAB - Routine to set up the control table and a DMA buffer. 


3¢¢ 


Functional description : 
This takes a table and uses it to set up the control] table of the 
AAFO1-A and to set up a DMA buffer containing the desired output 
velues. 

Inputs : 
The locations following the subroutine call must contain the 
number of control words to set up and the address of the table 
to be used for the set up. 

Implicit inputs : 


Table to be used for set up. 


Eg. ; Outputs : Mode Channel Volt 
(mV 
TIOTAB: .WORD QO, ° 1000. ; teble for outputs 
-WORD OO, 3. 2000. 
.WORD 0, 2 3000. 
. WORD QO, 3, 4000. 


Outputs : 


The control table of the AAFO1-A is set up and dete is set up in 
the buffer BUFOUT. 


Implicit outputs : 

None. 
Subordinete routines used : 

ADCON - analogue to digitel conversion routine. 
Functional side effects : 

The CTA register is left pointing at control word 0. 


Calling sequence : 


Eg. JSR PC, SETTAB + set up control table and date 
4 ; for 4 control words 
TIOTAB ; using teble et TIOTAB 
SETTAB: : 
PUSH$ <R1,R2,R3,R4,RS> ; seve the registers 
MOV @12( SP) ,.NWORDS s get number of words to set up 
ADD @2,12(SP) ; jump over the ergument 





SEQ 0089 


GLOBAL AREAS 


3492 030346 
3493 030352 


3495 030360 
3496 030362 
030366 


3499 030372 
3500 030376 
3501 030404 
3502 030406 
3503 030410 
i 

| 


$ 
S 


3504 030412 
3505 030414 
3506 030420 
3507 030424 
3508 030430 


3510 030436 
3511 030442 
3512 030446 
3513 030452 
3514 030454 
3515 030456 
3516 030462 
3517 030466 


3519 030470 
3520 030476 
3521 030504 
3522 030516 


3524 030520 
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GLOBAL SUBROUTINES SECTION 


017605 
062766 


005002 
012703 
012704 


052777 


016501 
004737 
052701 
010123 
005204 
062705 
005337 
001341 


012777 
052777 


000207 
000000 


000012 
000002 


003040 
020000 


152236 
000001 


000002 
030000 
152204 
000001 


000004 
026510 
070000 


000006 
030520 


020000 
000001 


000012 


152222 


152170 


152136 
152122 


10$: 


NWORDS : 


MOV 
ADD 


@12(SP),R5 
#2,12(SP) 


R2 
BUF OUT ,R3 
OCTA,R4 


R4,a0RXDBR 
#FNCTO, @ORXSCR 


2(R5),RO 

@CWR ,RO 

RO, BORXDBR 
#FNCTO,@ORXSCR 


4(RS),R1 

PC, ADCON 

#70000 ,R1 
R1,(R3)- 

Ra 


06 ,RS 
NWORDS 
10$ 


@CTA, @ORXDBR 
@FNCTO, @ORXSCR 
eames 


te) 


© © G2 oe oe oe oe oe oe 


- © © oe oe oe Ge oe 


point to the table 
and jump over the argument 


0 microvolts in conversions 
DMA buffer address in R3 
control word number in R4 


address the CTA 

and transfer the control word address 
get the mode from the table 

put it into bits 6-8 


now include the channel number 
multiplex to the control word 
eddress the control word register 
end trensfer to the control word 


get the voltage from the table 
convert to 12 bit dete 

set KSA bits for output with MNT set 
seve the dete in the buffer 

point to next control word 

move to next line of input table 

ell chennels done ? 

if not, do another 


eddress control word 0 
transfer to CTA register 
restore the registers 
end return 


number of control words to set up 


SEQ 0090 


GLOBAL AREAS 


a ee ed 


GLOBAL SUBROUTINES SECTION 


3526 
3527 
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; Subroutine ADFIN - Routine to Input from the ADFO1. 


;¢¢ 


Functionel description : 


This sets up the ADFO1 connected to the unit currently under test to 
perform ea DMA input, placing the date in the buffer at address BUFIN. 
If the required number of conversions is greater than the number of 
channels, the channel sequence is used repeatedly until ell of the 
inputs have been made. 


Inputs 
FCHIN - first chennel for input 
LCHIN - lest chennel for input 
NCONS - number of conversions to make 
EXTCLK - set to 4 if the external clock is to be used (this enables 


synchronization with the AAFO1-A). 
Implicit inputs : 
conteins eddress of ADF's roils SCR register 


- conteins eddress of ADF's DRX11-C COR register 
ADFADR - contains eddress of ADF’'s DRX11-C ADR register 


ADF DBR conteins eddress of ADF's DRX11-C DBR register 
CTIME conversion time selected by stertup questions 
Outputs : 


The control teble of the ADFO] is set up and the DRX11-C is set to DMA 
dete in buffer DATIN. 


Implicit outputs : 
None. 

Subordinete routines used : 
None. 


Functionel side effects : 


None. 

Calling sequence : 

Eg. MOV @1,FCHIN ; use chennels 1 
MOV @2,LCHIN ; end 2 repeetedly 


MOV 2048. ,NCONS 
MOV @ECE ,EXTCLK 
JSR PC, ADF IN 


to input 2048 words 
trigger inputs from the externel clock 
stert the input 


ADFIN:: 
PUSHS <RO,R1,R2,R3,R4,RS> i; seve the registers 


SEQ 0091 
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SEQ 0092 
; GLOBAL SUBROUTINES SECTION 
| 
3583 030536 052777 000040 152074 BIS @RES , BADFSCR ; reset the ADFO1 
3584 030544 013701 002230 MOV CTIME,R1 ; get the selected conversion time 
3585 030550 052701 040000 BIS @PCR,R1 ; address the PCR 
3586 030554 010177 152066 MOV R1,@ADFDBR ; and enter the conversion time 
oa 030560 052777 000001 152052 BIS @FNCTO,@ADFSCR ; transfer to PCR 
3589 030566 013701 031006 MOV FCHIN,R1 ; save the first channel to use 
3590 030572 013702 031010 MOV LCHIN,R2 ; and the last channel 
te! 030576 013703 031012 MOV NCONS ,R3 ; and the number of conversions 
3593 030602 052701 030000 BIS OCWR ,R1 ; convert first channel to CWR 
3594 030606 052702 030000 BIS @CWR ,R2 ; convert lest channel to CWR 
3595 030612 010104 MOV R1,R4 ; start with first channel 
or 030614 012705 020000 MOV @CTA,RS ; and first control teble adoress 
9 
3598 030620 010577 152022 10$: MOV RS, BADF DBR ; get the current CWR address 
3599 030624 052777 000001 152006 BIS @FNCTO, @ADFSCR ; and transfer to the CTA 
3600 030632 010477 152010 MOV R4, @ADF DBR ; get the current channel 
3601 030636 052777 000001 151774 BIS @FNCTO, @ADFSCR ; and transfer to the CWR 
3602 030644 005205 INC RS ; next control table address 
3603 030646 005204 INC Ra ; next channel 
3604 030650 020402 CMP R4,R2 ; ell channels done ? 
a 030652 101762 LOS 10$ ; if not, go back 
3607 030654 005304 DEC R4 ; reset to previous channel 
3608 030656 052704 000100 BIS #100 ,R4 ; set up to mode 1 
3609 030662 010477 151760 MOV R4,@ADFOBR ; and rewrite the previous channel 
3610 030666 052777 1 151744 BIS @FNCTO,@ADF SCR ; trensfer to the CWR 
3611 030674 012777 O20000 151744 MOV @CTA,@ADFDBR ; reset the CTA to point 
3612 030702 052777 000001 151730 BIS @FNCTO, @ADF SCR ; back to the first control word 
3613 
3614 030710 012777 151724 MOV #BAR1,@ADFCOR ; point to BARI 
3615 030716 013777 023040 151720 MOV BUF IN, @ADF ADR ; and insert DMA buffer address 
3616 030724 012777 000400 151710 MOV @WCR1,@ADFCOR ; point to WCRI 
3617 030732 005403 NEG R3 ; form wordcount 
3618 930734 010377 151704 MOV R3,@ADF ADR ; and insert into WCR1 
3619 030740 012777 060000 151674 MOV @INOUT !RUN, BADF COR ; set the date direction (from dADF ) 
3620 030746 013701 031014 MOV EXTCLK,R1 ; set the external clock if selected 
3621 030752 052701 010001 BIS @ACS!GO,R1 ; stert the DMA 
3622 030756 010177 151664 MOV R1,@ADF DBR ; trensfer to the DBR 
3623 030762 052777 000001 151650 BIS @FNCTO,@ADFSCR ; and start the input 
3624 
3625 030770 PoP <RS,R4,R3,R2,R1,RO> ; restore the registers 
ae 031004 000207 RTS Cc ; and return 
362 
| 3628 031006 000000 FCHIN .WORD O ; first channel for input 
3629 031010 000000 LCHIN . WORD ie) ; lest channél for input 
3630 031012 000000 NCONS: .WORD i?) ; number of conversions 
— 031014 000000 EXTCLK: .WORD ie) ; external clock (set to 400 to enable) 
2 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 
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SEQ 0093 


Subroutine IEXIN - Routine to input from an IEx11-A using an HP3455. 


Functional description : 


This routine allows the output from a HP3455 digital voltmeter 
to be read vie an IEx11-A interface. The result is saved in 
memory at location HPSAVE and in registers Rl and R2. 


Channel 1 of the IEx11-A is set up as system controller and an 
IFC sent over the IEEE bus. The IEx11-A is then selected as 
telker and the HP3455 as listener in order to set up the HP3455. 


The IEx11-A is then selected as listener with the HP3455 as 
talker and the voltage from the HP3455 is read over the IEEE bus 
into memory as an Ascii string. Finally, the string is converted 
to an integer and decimal value in R1 and R2. 


Inputs : 


None. 


Implicit inputs : 


IEXADD - address of the IEx11-A to which the HP3455 is 
connected (default is set to 164100). 


Outputs : 


HPSAVE - starting sddress of the memory area in which the 
measurement is saved. The format is the same as that 
output by the HP3455 (eg. +12.123450e-01). 


R1 - integer part of the measurement (mV) 
R2 - decimal part of the measurement (uV) 
ERFLA - this location is loaded with an error number if an 


error is detected in the subroutine. 


Implicit outputs : 


None. 


Subordinate routines used : 


None. 


Functional side effects : 


None. 


Calling sequence : 


JSR PC,IEXIN 


ee ee ee eee — 4 


GLOBAL AREAS 
, GLOBAL SUBROUTINES SECTION 


031016 
031016 
031020 


031022 


031026 
031032 
031036 
031044 
031050 
031054 
031060 
031066 
031074 
031100 
031102 
031104 


031112 
031120 
031126 
031134 
031142 
031150 


031152 
031160 
031166 
031170 
031176 
031204 
031206 
031214 
031222 
031224 
031232 
031240 
031242 


031250 
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010046 
010346 


013701 


005061 
005061 
112761 
105061 
105061 
105061 
012761 
112761 
012700 
005300 
001376 
112761 


112761 
112761 
112761 
112761 
132761 
001774 


112761 
132761 
001774 
112761 
132761 
001774 
112761 
132761 
001774 
112761 
132761 
001774 
112761 


112761 


032022 


000005 


000010 
000005 


000005 


000005 
000005 
000007 
000095 
000002 


0000C7 
000002 


000007 
000002 


000007 
000002 


000007 
000002 


000005 
000007 





; IEx11-A register offsets : 


IEXISR 
IEXIIR 
IEXICR 
IEXIOR 
IEXCSR 
IEXBOR 
IEXBCR 
IEXMCR 


IEXIN: : 


10$: 


20$: 


; Select the HP3455 as listener and set 


MOVB 
MOVB 
MOVB 
MOVB 
BITB 
BEQ 


30$: 


RO, °5P) 
R3,-(CSP) 


IEXADD,R1 


IEXCSR(R1) 
IEXCSRC(R1) 

#200, IEXICR+1(R1) 
IEXICR+1(R1) 
IEXISR(R1) 
IEXIIR+1(R1) 

#2, IEXCSRC(R1) 
#217, IEXICR+1(R1) 
#500 ,RO 

RO 

20$ 

#17, IEXICR+1(R1) 


#212, IEXICR+1(R1) 
#220, IEXICR+1(R1) 
#66, IEXIOR+1(R1) 
#213, IEXICR+1(R1) 
#20, IEXIIR(R1) 
30$ 


; Set up the HP3455 


MOVB 
BITB 
BEQ 
MOVB 
BITB 
BEQ 
MOVB 
BITB 
BEQ 
MOVB 
BITB 
BEQ 
MOVB 


MOVB 


40$: 


50$: 


60$: 


70$: 


#124, IEXIOR+1(R1) 
#20, IEXIIR(R1) 
40$ 

#62, IEXIOR+1(R1) 
#20, IEXIIR(R1) 
50$ 

#122, IEXIOR+1(R1) 
#20, IEXIIR(R1) 
60$ 

#63, IEXIDR+1(R1) 
#20, IEXIIR(CR1) 
70$ 

#14, ITEXICR+1(R1) 


#10, IEXIOR+1(R1) 


SEQ 0094 


save RO and R3 


save address of IEx11-A 


clear IEX CSR (select cha.1) 

clear IEX CSR 

set SWRST in ICRH Cinitialize cha. 1) 
clear ICRH (SWRST) 

disable all interrupts (mask reg.0,ISRO) 
load DPA "0" into IIRH CIEEE bus adr.) 
set SYS CONT bit in CSR 

cet IFC line true into ICRH 

delay for release of IFC 

(100 ms) 


clear IFC (SIC command into ICRH) 


remote enable 


- oF © @ © © os © @ @e oe oe os oF oe 


select cha.1 as talker (TON to ICRH) 
send remote enable (SRE) to HP3455 
address HP and switch to listener 

go into standby state (CACS->CSBS) 
is CONTR. changed into standby state 
wait if bo bit was set 


switch HP3455 to external trigger 
date out reg. ready to send a byte ? 
wait if BO bit was set 

second byte for external trigger 
date out reg. ready to send a byte ? 
wait if BO bit was set 

select 10V range 

date out reg. ready to send a byte ? 
wait if BO bit was set 

second byte for 10V range 

date out reg. ready to send a byte ? 
wait if BO bit was set 

take control TCA (CSBS->CACS) 

ready for command ~ addr. 

trigger command to HP (get into DOUT) 


' GLOBAL AREAS 


3748 
3749 
3750 
3751 
3752 
3753 
3754 
3755 
3756 


3757 
3758 
| 


3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 


031256 
031264 
031272 
031274 
031302 
031310 
031312 


031320 
031324 
031330 
031334 
031342 
031344 
031350 
031352 
031356 


031360 


031366 
031374 
031402 
031404 
031412 
031416 
031420 
031422 
031430 
031436 


031442 
031446 


031452 
031456 
031460 
031464 
031466 
031472 
031476 
031500 
031502 


031504 
031510 
031512 
031514 
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112761 
132761 
001774 
112761 
132761 
001774 
112761 


012700 
162700 
062700 
032761 
001774 
016110 
000310 
121027 
001364 


112761 


112761 
132761 
001774 
112761 
012700 
005300 
001376 
112761 
112761 
105061 


012700 
012701 


121027 
001403 
121027 
001002 
062700 
121027 
001402 
112021 
000773 


062700 
005003 
005002 
116003 


, GLOBAL SUBROUTINES SECTION 


000211 
000020 


000126 
000920 


000213 


032024 
000002 
000002 
000040 
000006 


000012 


000014 


000024 
000020 


000217 
000500 


000017 
000200 
000005 


032024 
032070 


000053 
000055 


000002 
000056 


000002 


000022 


000005 
000002 


000007 
000002 


000005 


000002 


000005 


000007 
000002 


000005 


000005 
000005 


80$: 


90$: 


E8 
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#211, IEXICR+1(R1) 
#20, IEXIIRCR1) 
80$ 

#126, IEXIOR+1(R1) 
#20, IEXIIR(R1) 
90$ 

#213, IEXICR+1(R1) 


ss © ee ee ee oe oe 


select cha.1 as listener (ICRH) 

data out reg. ready to send a byte ? 
wait if BO bit was set 

address HP and switch to talker 

data out reg. ready to send a byte ? 
wait if BO bit was set 

go into standby state (CACS->CSBS) 
ready for recive data from HP 


; Save all received data in the receive buffer 


100$: 
110$: 


; Clean 


120$: 


130$: 


GHPSAVE ,RO 
#2,RO 

#2,RO 

#40, IEXIIR(R1) 
110$ 
IEXIDRCR1), CRO) 
CRO) 

CRO), #12 

100$ 


load start address of receive buf. 


increment buffer address 

BI in IRR set (data received from HP) 
branch if not 

save recived data 

swap high byte into low byte 

all data recived ? 

branch if not 


up the IEEE bus interfaces to leave in a neutral state after exit 


MOVB 


#14, IEXICR+1(R1) 


#24, IEXIOR+1(R1) 
#20, IEXIIR(R1) 
120$ 

+ A - seca 


130$ 

#17, IEXICR+1(R1) 
#200, IEYICR+1(R1) 
IEXICR+1(R1) 


=e © @F © @F © oe =e oe Se oe oe 


take control TCA (CSBS->CACS) 

ready for command + addr. 

send deveice clear (DCL) to HP 

date out reg. ready to send a byte ? 
wait if BO bit was set 

set IFC line true into ICRH 

delay for release of IFC 

(100 ms) 


clear IFC CSIC command into ICRH) 
set SWRST in ICRH Cinitialize cha. 1) 
clear ICRH (SWRST) 


; Convert the contents of the receive buffer and place in Rl and R2 


HPPS1: 


10$: 


20$: 
30$: 


40$: 


#HPSAVE ,RO 
#CNSAVE ,R1 


CRO), #' + 
20$ 


4 
(RO)+,(R1)+ 
30$ 

#2,RO 

R3 


R2 
22(RO),R3 


receive buffer (HP3455 output) 
changed receive buffer 


is lst character a+ ? 

if yes, branch 

is ita- ? 

if not, branch 

skip over the sign 

is it a point ? 

if yes, branch 

build intger part of changed buffer 


skip over the point 


get exponent from receive buffer 


SEQ 0095 


a 


| GLOBAL AREAS 


| 3805 031520 
3806 031524 
3807 031526 
3808 031530 
3809 031532 
3810 031534 


3812 031536 
3813 031540 
3814 031542 
3815 031544 


3817 031550 
3818 031554 
3819 031556 
3820 031560 
3821 031562 
3822 031564 
3823 031566 
3824 031570 
3825 031574 
3826 031600 


3828 031602 


3834 031624 


3836 031626 
3837 031634 


3839 031636 


3841 031642 
3842 031646 


3844 031650 
3845 031652 
3846 031654 
3847 031656 
3848 031660 


3850 031662 
3851 031664 
3852 031666 


3854 031670 
3855 031674 
3856 031676 
3857 031702 
3858 031706 
3859 031710 
3860 031714 
| 3861 031716 


ee ee 


F8 
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162703 
020302 
001403 
012021 
005202 
000773 


012021 
012021 
012021 
012721 


121027 
001402 
112021 
000773 
005021 
005021 
005011 
012700 
012701 
005011 


042710 
105710 
001460 
121027 
002403 
121027 
003404 


012737 
000467 


162710 


021127 
101367 


006311 
011102 
006311 
006311 
060211 


012002 
060211 
100425 


121027 
001342 
062700 
012701 
005011 
105760 
001003 
112760 


000060 


000056 
000105 


032070 
032134 


177400 


000060 
000071 


000001 032140 


000060 
006314 


000056 


000002 
032136 


000002 
000060 000002 


4$: 


3$: 


50$: 


60$: 


70$: 


80$: 


90$: 


SUB 
CMP 


#60 ,R3 
R3,R2 


3$ 
CRO)+,CR1)+ 
re 
4$ 


CRO)+,CR1)+ 
CRO)+,CR1)+ 
CRO)+,CR1)+ 
#' .,CR1)+ 


CRO), #'E 
60$ 
CRO)+,CR1)+ 


#CNSAVE ,RO 
#HPNR1,R1 
(R11) 


#177400, (RO) 
CRO) 

110$ 

CRO), #60 


#1,ERFLA 
130$ 


#60, (CRO) 


(R1),#3276. 
80$ 


(R1) 
(R1),R2 
C(R1) 
(R1) 
R2,(R1) 


(RO)+,R2 
R2,(R1) 
100$ 


(RO),#'. 
70$ 


#'O0,2(RO) 


@s we ee ee ee ee oe os oe oe =e es ee oe 


ee 


SEQ 0096 


build number 


shift piont 3 digits to the 
right 


is found character an E ? 
branch if yes 
build decimal part of changed buffer 


clear following three locations 


point to the start of the changed buf 
assume integer part 
clean up location 


clear high byte of changed buffer 
end of string ? 

if yes, finish up 

is received char. a valid number ? 
if too low, mask for error 


if not too high, branch 


"jllegal character" mark it 
exit routine 


convert to number 


number too high ? 
if yes, branch 


else multiply by 10 


ready for next character 


save the character 
and add to accumulator 
if overflow, report error 


is next charcter a point ? 

if not, branch 

skip over the point 

start no decimal part 

clean up location 

is this loaction loaded with date 
branch if yes 

otherwise fill with ascii 0 = 60 
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3862 031724 105760 000004 44$: TSTB 4(RO) 
3863 031730 001324 BNE 70$ 

3864 031732 112760 000060 000004 MOVB #'0,4CRO) 
coed 031740 000720 BR 70$ 

3867 031742 012737 000002 032140 100%: MOV #2,ERFLA 
ee 031750 000421 BR 130$ 
3870 031752 013701 032134 110$: MOV HPNR1,R1 
3871 031756 013702 032136 MOV HPNR2 ,R2 
3872 031762 O20227 001750 CMP R2,#1000. 
3873 031766 103404 BLO 120$ 
3874 031770 012737 000003 032140 MOV #3,ERFLA 
od 031776 000406 BR 130$ 
3877 032000 123727 032024 000055 120$: CMPB HPSAVE , #' - 
3878 032006 001002 BNE 130$ 
3879 032010 005401 NEG R1 

3880 032012 005402 NEG Re 

3881 032014 130$: 

3882 032014 012603 MOV (SP )+,R3 
ree 032016 012600 MOV (SP)+,RO 
ro 032020 000207 RTS PC 

ood 032022 164100 IEXADD::.WORD 164100 

8 

3889 032024 HPSAVE: .BLKW 22 

3890 032070 CNSAVE: .BLKW 22 

3891 032134 000000 HPNR1i: .WORD O 

3892 032136 000000 HPNR2: .WORD O 

3893 032140 000000 ERFLA: .WORD 0O 

3894 

3895 EVEN 


em a ne _—_— oy 


SEQ 0097 


is this location loaded with data 
branch if yes 

otherwise fill with ascii O = 60 
get next character 


"number too big” load error code 
exit routine 


set up output registers 
decimal part too big ? 
if not, branch 

save error messages 
exit routine 

was string negative ? 


if not, branch 
else negate the output 


restore R3 and RO 


and return 

IEx11-A address 

buffer for received data 
buffer for conversion 


store for integer part 
store for decimal part 


—— ——— a 


| GLOBAL AREAS 
| GLOBAL SUBROUTINES SECTION 


3897 
3898 
3899 
3900 
3901 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 
3911 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
3921 


032142 
032142 
032146 
032152 
032154 
032156 
032160 
032162 
032164 
032166 
032172 
032176 


032200 
032202 


—— 


— —— —-——_ 
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013746 
013700 


135753 
024674 


032200 
0352202 


032200 
032202 


se «s © os @e Gs os Ge es Gs Se Ge Se Ss Gs Ge Gs Ge Se Ge Ge Se Be SS Ge @s Ge Se Ss we es Se Se ae 


Subroutine RANDOM - Routine to generate a pseudo random number. 
Functional description : 


This routine generates a random pattern. The pattern is stored 
in location RB and in RO. 


Inputs : 
None. 
Implicit inputs : 
RA and RB. 
Outputs : 
RB - contains the random pattern 
RA - contains a second random pattern 
RO - same as R 
Implicit outputs : 
None. 
Subordinate routines used : 
None. 
Calling sequence : 


JSR PC,RANDOM 


RANDOM: : 
MOV RA, -CSP) ; push RA to stack 
MOV RB, ; get the last random pattern 
ASL asP ; sift SP (=RA) left 
ADC RO ; if carry is set add to RO (=RB) 
ASR RO ; then shift the result Rith 
ADC asP ; if carry is set add to SP (=RA) 
ADD asP ,RO ; add SP tera) and RO (=RB) 
SBC 0 ; subtract carry if set from RB 
MOV (SP)+,RA ; load new value into location RA 
MOV Rv, RB ; load location RB with new pat. 
RETURN 3 

RA:: . WORD 135753 ; start pattern for RB 

RB: : -WORD 24674 ; storage for random pattern 


SEQ 0098 


—_ ——-_—_— a a, “cL LL LLL LLL LLL LL LLL LLL LLL, 


, GLOBAL AREAS 


3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 


032204 

032204 

032204 012737 000001 002770 
032212 

032212 

032212 000002 


032214 
032214 
032214 
032214 
032214 000002 


032216 

032216 

032216 005237 002772 
032222 

032222 

032222 000002 
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18 


MACRO VOS.00 Friday 01-Feb-85 08:58 Page 62 
| GLOBAL SUBROUTINES SECTION 


jE REE EREE EERE EEE EES | 
; INTERRUPT SERVICE ROUTINES ; 
SERRA AAA AREER REESE 


; Interrupt service routine NXM - non existant memory trap. 


;** 

This routine sets a flag NXMFLG to 1. It is executed when a non 
existant memory trap occurs if vector 4 has been loaded with the 
address NXM. 


NXMFLG should be cleared immediately before executing code which may 
address non existant memory. 


: 
; 
3 
3 
; 
BGNSRV NXM 

NXM:: 
MOV #1,NXMFLG ; flag NXM trap 
ENDSRV 


L10017: 
RTI 


; Dummy clock interrupt service routine CLINT. 


;** 

; This routine is a dummy service for line time clock interrupts and 
; will be executed when an interrupt to vector 100 occurs. 

gas 


BGNSRV CLINT ; do nothing 
ENDSRV 


CLINT:: 


L10020: 
RTI 


; DRX11-C interrupt service routine INT. 


3;¢* 
; This routine increments a flag INTFLG. It is entered when a DRX11-C 
; interrupt occurs if the vector has been loaded with the address INT. 


: 
; INTFLG should be cleared immediately before executing code which may 
; cause a DRX11-C interrupt. 

gee 


BGNSRV INT 

INT:: 
INC INTFLG ; flag DRX11-C interrupt 
ENDSRV 

L10021: 


RTI 


; DRX11-C interrupt service routine INT1. 


SEQ 0099 


| GLOBAL AREAS 


OOO CT NT AF | TT 
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4008 032232 
032232 


3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 032224 
032224 

4007 032224 
032232 

| 


jee 


; This routine sets a flag INTFLG. It is entered when a DRX11-C 
; interrupt occurs if the vector has been loaded with the address INT1. 


; INTFLG should be cleared immediately before executing code which may 
; cause a DRX11-C interrupt. 


BGNSRV INTL 
INTI:: 


012737 000001 002772 MOV #1, INTFLG ; flag DRX11-C interrupt 
ENDSRV 
L10022: 
000002 RTI 


SEQ 0100 


GLOBAL AREAS 
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4011 
4012 


4013 
4014 032234 
4015 
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ENDMOD 


K8 


SEQ 0101 
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| 
4028 . TITLE MISCELLANEOUS SECTIONS 
} sont -SBTTL REPORT CODING SECTION 
40 
4058 032234 BGNMOD 
4059 
4060 ; Print routine 
4061 
4062 soe 
4063 ; Functional description : 
4064 ; 
4065 ; Prints out test titles, or a statistics table for the units 
saat 3 under test. Which to print is determined by user input. 
; 
4068 ; The statistics teble displays the number of errors which the 
4069 ; diagnostic has detected for each unit, and whether the unit has 
4070 3 been dropped from testing. 
4071 ; 
4072 ; Inputs : 
4073 3 
4074 ; The user is asked to type a character indicating whether to 
rob ; print the test titles or the statistics table. 
; 
4077 ; Implicit inputs : 
4078 i 
ro ; The error table ‘'ECNT' is used for the statistics printout. 
4 ; 
4081 ; Test titles are assumed to be labelled with the format TDHDnn, 
4082 ; where nn is the test number. NTESTS at the start of the routine 
4083 ; must equal the number of tests in the diagnostic. 
4084 ; 
4085 ; Outputs : 
4086 ; 
4087 ; Either ea list of test titles or a statistics table are output. 
4088 ; 
4089 ; Implicit outputs : 
4090 3 
4091 ; None. 
4092 ; 
4093 ; Subordinate routires used : 
4094 : 
4095 ; CRLF - lire feed print routine. 
4096 ; 
4097 ; Functional side effects : 
4098 3 
4099 ; Registers R1 to R5 are corrupted. 
4100 F 
4101 ; Calling sequence : 
4102 ; 
4103 ; Invoked by the operator print command. 
4104 ; 
4105 ~~ 
4106 
ye 000034 NTESTS=28. ; 28 tests for title printout 
4109 032234 BGNRPT 


032234 LS$RPT:: 
4110 032234 ASK; MANUAL ; manuel intervention disabled ? 





- : TTT 


SEQ 0102 
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MISCELLANEOUS SECTIONS MACRO VOS.00 Friday 01-Feb-85 08:58 Page 64-1 
REPORT CODING SECTION 


4111 
4112 


4113 
4114 
4115 
4116 
4117 
4118 
4119 


4120 


4121 
4122 
4123 


4124 
4125 
4126 
4127 
4128 
4129 


4130 


032234 
032236 
032236 
032240 


032372 
032376 


032402 
032402 
032404 
032410 
032414 
032416 
032420 
032424 
032424 
032426 
032432 
032434 
032436 


104450 
103126 


023727 
001427 
023727 
001002 
000137 


012746 
012746 
010600 
104417 
062706 


012746 
012746 
010600 
104417 
062706 
000733 


012746 
012746 
010600 
104417 
062706 
012701 
012702 


012703 


010146 
012746 


012746 


032704 
032704 
032514 


033133 
000001 


000004 


033247 
000001 


032714 
000022 


033106 
000002 


000001 


eee ee 


BNCOMPLETE STAT 
GMANID PR1,CHAR,A,377,1,4,YES , 


000124 
000123 


PRINTF 


PRINTF 


TITLE: PRINTF 


10$: 


20%: PRINTF 


PRINTF 


CHAR, #'T 
TITLE 


OPR2A 


ASK 
eTT 


#1,R1 
#TADS ,R2 


#18. ,R3 
@TNUM,R1 


(R2) 


cee ee ee — 


SEQ 0103 


TRAP C$MANI 

if yes, print statistics 
BC STAT 

corompt for ea command 
TRAP C$GMAN 
BR 10000$ 
. WORD CHAR 
. WORD TS$CODE 
-WORD PRI 
. WORD 377 
. WORD T$LOLIM 
. WORD T$HILIM 

10000$: 

test list requested ? 

if yes, output titles 

statistics requested ? 

if not, print the help message 

if yes, output statistics 

otherwise, print the help wuneaes 
MOV R2,-(SP) 
MOV #1,-CSP) 
MOV SP,RO 
TRAP CSPNTF 
ADD 04,SP 
MOV OPR2A, -( SP) 
MOV @1,-CSP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04,SP 

end prompt for command again 

test list header 
MOV OTT, -(SP) 
MOV @1,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 

04,SP 

start with test 1 

start of list of title addresses 

wait efter 18 lines 

print test number 
MOV R1,-(SP) 
MOV @TNUM, -( SP) 
MOV @2,-(SP) 
MOV RO 
TRAP CSPNTF 
ADD 06,SP 

and title 
MOV (R2),-C SP) 
MOV @1,-(SP) 
MOV SP RO 
TRAP CSPNTF 
ADD 04,5? 
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REPORT CODING SECTION 


062702 
005201 


4131 032442 
4132 032446 
4133 032450 
4134 032454 
4135 032456 
4136 032460 
4137 032462 
032462 
032464 
032466 
032470 
032472 
032474 
032476 
032500 
032502 
4138 032502 
4139 032506 
4140 
4141 032510 
4142 
4143 032514 
032514 
032520 
032524 
* 032526 
032530 
4144 032534 
032554 
032540 
032544 
032546 
032550 


4146 032554 


4148 032556 
4149 032562 


012746 
012746 
010600 
104417 
062706 


012746 
012746 
010600 
104417 
062706 


005001 


020137 
001444 


012703 
105761 
001402 
012703 


N8 
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000002 
000034 


026134 
032700 


033303 
000001 


002012 
002710 


033516 
002750 


033512 


033471 
000004 


000012 


30$: 
STAT: 


20%: 


308: 


JSR 
BR 


JMP 
PRINTF 


PRINTF 


MOV 
PRINTF 


@2,R2 

Ri 

R1,@NTESTS 

30$ 

R3 

20% 

RET »RFLG,A,377,0,1, YES 


PC, CRLF 
10$ 


PREX 
OPR3 


OPR3A 


R1 


R1,t SUNTT 
60$ 

R1,R4 

R4 


ECNTC(R4),RS 
RS 

40$ 

ONO ,R3 
DROPED(R1 ) 
30$ 


@YES,R3 
OPRS ,R1,RS,RS 


SEQ 0104 


get address of next title 
and next test number 
ell printed ? 
if yes, exit 
18 lines output ? 
if not, branch 
else wait for operator to read 
TRAP C$GMAN 
BR 10001$ 
. WORD RFLG 
. WORD TSCODE 
. WORD RET 
. WORD 377 
. WORD TS$LOLIM 
. WORD TSHILIM 
10001$: 
print e line feed 
and then continue 
exit 
print stetistics header 
MOV OPR3,-(SP) 
MOV 01,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04 ,SP 
MOV OPR3A, -( SP) 
MOV @1,-CSP) 
MOV SP ,RO 
TRAP CSPNTF 
AOD 04,SP 
stert with first unit 
ell units reported ? 
if yes, exit 
form offset to error count 
t unit's error count 
1s it negetive ? 
if yes, report untested 
essume unit is not dropped 
check if it is 
if it is not, brench 
otherwise print yes 
else print stetistics 
MOV R3,-(SP) 
MOV RS, -(SP) 
MOV R1,-CSP) 
MOV @PRS, -( SP) 
MOV 04,-(SP) 
MOV SP RO 
TRAP CSPNTF 
ADD @12,S? 





SA 





: LS B9 
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SEQ O 
et CODING SECTION —_ 
ret 032644 000411 BR 50$ ; and look for more units 

4163 032646 40$: PRINTF #PR4,R1 ; print ‘UNTESTED’ 
032646 010146 MOV R1,-(SP) 
032650 012746 033440 MOV OPR4, -(SP) 
032654 012746 000002 MOV @2,-(SP) ! 
032660 010600 MOV SP RO 
032662 104417 TRAP CSPNTF 
area 032064 062706 000006 ADD 06, SP | 
4165 032670 005201 50$: INC R1 ; prepere for next unit | 
saat 032672 000731 BR 20$ ; if not, report the next 
reed 032674 004737 026134 60$: JSR PC,CRLF ; print a line feed 
4170 032700 PREX: EXIT RPT 
032700 000167 .WORD J$ JUMP 
_— 032702 000616 . WORD L10023-2-. 
4172 032704 110 040 040 CHAR: -ASCIZ /H / ; store for operator input 
032707 040 040 000 
re ba 032712 000000 RFLG: . WORD 0 ; flag for ‘TYPE RETURN FOR MORE TITLES ' 
4198 
4199 032714 TADS: TITLES ; list of test title addresses 
032714 035700 . WORD TSHO1 
032716 036362 . WORD TSHD2 
032720 037344 . WORD TSHD3 
032722 040156 . WORD TSHD4 
032724 041016 . WORD TSHOS 
032726 041734 . WORD TSHD6 
032730 042534 . WORD TSHD7 
032732 043452 . WORD TSHD8 
032734 044310 . WORD TSHD9 
032736 045214 . WORD TSHD10 
032740 046200 . WORD TSHO11 
032742 047162 . WORD TSHD12 
032744 050130 . WORD TSHO13 
032746 051252 . WORD TSHD14 
032750 052250 . WORD TSHO15 
032752 053232 . WORD TSHD16 
032754 054402 . WORD TSHD17 
032756 055414 . WORD TSHD18 
032760 056632 . WORD TSHO19 
032762 057756 . WORD TSHD20 
032764 060722 . WORD TSHD21 
032766 061602 . WORD TSHD22 
032770 062544 . WORD TSHD23 | 
' 032772 064036 . WORD TSHD24 | 
| 032774 066572 -WORD TSHO25S 
| 032776 072100 . WORD TSHD26 ' 
; 033000 074757 . WORD TSHD27 | 
033002 076734 . WORD TSHD28 
4203 
4204 .NLIST BEX j 





C9 
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REPORT CODING SECTION 


4206 
4207 


4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 


033004 
033024 


033050 
033106 
033112 
033133 
033205 
033247 
033303 
033342 
033401 
033440 
033471 


033512 
033516 


033522 
033522 


045 
045 


124 
045 


033522 104425 


116 
116 


131 
104 
131 
116 
116 
116 
116 
116 
116 
116 
116 


105 
117 


045 
045 


120 
063 


TT: 


RET: 


TNUM: 


PR1: 
PRe: 


PROA: 


PR3: 


PR3A: 


PR4: 
PRS: 


YES: 
NO: 


.ASCII /sNSATEST TITLES. / 
ASCIZ /MMA-~-------2-- sN2/ 

.ASCIZ /TYPE “RETURN” FOR MORE TITLES/ 

.ASCIZ /#03/ 

.ASCIZ /TYPE S,T OR HELP/ 

.ASCII /sNSATHE FOLLOWING COMMANDS MRE ACCEPTED : 
-ASCIZ /sSN28AS - PRINT STATISTICS TABLESN/ 

“ASCIZ /sNSAT - PRINT TEST TITLESSN/ 

.ASCII /sSN2SAAAFO1-A MODULE STATISTICS. / 

MTL PEM nccansedessesesusecwenece / 

.ASCIZ /SN2SAUNIT ERRORS DROPPEDSN/ 

.ASCIZ /SNSD38A UNTESTED  NO/ 

-ASCIZ /S6NSD385S5S8D38S 787 / 

.ASCIZ /YES/ 

-ASCIZ /NO/ 

.LIST BEX 

EVEN 

ENDRPT 


-/ 


L10023: 


TRAP 


C$RPT 


SEQ 0106 


- 


ee ee —_ -—- —_—_— — 


DY 
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{ 
' 
SEQ 0107 ! 
PROTECTION TABLE | 
| 4235 .SBTTL PROTECTION TABLE 
4236 
4237 500 
4238 ; THIS TABLE IS USED BY THE RUNTIME SERVICES 
4239 ; TO PROTECT THE LOAD MEDIA. 
4240 -- | 
4241 | 
4242 033524 BGNPROT 
033524 L$PROT:: 
4243 
4244 033524 000000 ) ;OFFSET INTO P-TABLE FOR DRX11-C ADDRESS 
4245 033526 177777 -1 ;OFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
4206 033530 177777 am | ;OFFSET INTO P-TABLE FOR DRIVE NUMBER 
4248 033532 ENDPROT 


ane £9 
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4326 033710 000427 BR INIUUT ; and start testing with first uut 


SEQ 0108 
‘Stott SECTION 
4264 .SBTTL INITIALIZE SECTION 
i 4265 
4266 ioe 
4267 ; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
4268 ; AT THE BEGINNING OF EACH PASS. 
4269 ¢+* 
4270 
4271 033532 BGNINIT 
033532 L$INIT:: 
4272 
4296 
4297 033532 START: READEF #EF.START ; is this a new start ? 
033532 012700 000040 MOV #EF .START,RO 
033536 104447 TRAP CS$REFG 
4298 033540 BNCOMPLETE RESTRT ; if not, branch 
033540 103064 BCC RESTRT 
4299 033542 SETVEC #100,#CLINT,#340; ignore further interrupts to vector 100 
033542 012746 000340 MOV #340, -(SP) 
033546 012746 032214 MOV #CLINT,-(SP) 
033552 012746 000100 MOV #100,-(SP) 
033556 012746 000003 MOV #3,-(SP) 
033562 104437 TRAP C$SVEC 
033564 062706 000010 ADD #10,SP 
4300 033570 SETVEC #14,4#113316,#340; *** breakpoint vector for debugging *** 
033570 012746 000340 MOV #340,-(SP) 
033574 012746 113316 MOV #113316,-(SP) 
033600 012746 000014 MOV #14,-(SP) 
033604 012746 000003 MOV #3,-(SP) 
033610 104437 TRAP C$SVEC 
033612 062706 000010 ADD #10,SP 
4301 033616 10$: BRESET ; reset the system 
033616 104433 TRAP C$RESET 
4302 033620 004737 034254 JSR PC,SETCLK ; set up clock counter 
4303 
4304 033624 012700 002774 MOV #PFLAG1,RO ; clear flags for “unipolar/bipolar” printouts 
4305 033630 012701 000020 MOV #16.,R1 ; after start command 
4306 033634 105020 2U$: CLRB CRO)+ ; 16 1 byte flags 
4307 033636 005301 DEC Ri ; 
4308 033640 001375 BNE 20$ ; 
4309 
4310 033642 005037 003014 CLR QFLAG1 ; clear flag for questions after start command 
4311 033646 005037 003016 CLR QFLAG2 ; clear flag for questions after start, restart 
4312 ; or continue commands 
4313 
4314 033652 012700 002750 MOV #DROPED ,RO ; get unit dropped table adderss 
4315 033656 012701 000020 MOV #16.,R1 ; there are 16 units 
4316 033662 105020 30$: CLRB CRO)+ ; clear all 16 dropped unit flags 
4317 033664 005301 DEC Ri . ace 
ae 033666 001375 BNE 30$ ; 
1 
4320 033670 012700 002710 MOV #ECNT,RO ; get error count for uut 0 
4321 033674 012701 000020 MOV #16.,R1 ; there are 16 uut's 
4322 033700 012720 100000 40$: MOV #100000, (RO)+ ; initialize the error count 
4323 033704 005301 DEC Ri ; all cleared ? 
oe 033706 001374 BNE 40$ ; if not, clear next count 
i 
‘ 





| INITIALIZE SECTION 


4327 
4328 033712 
033712 
033716 
4329 033720 
033720 
4330 033722 
4331 033726 


4332 

4333 033730 
033730 
033734 

4334 033736 
033736 


4335 

4336 033740 
033740 
033744 

4337 033746 
033746 

4338 033750 

4339 033754 


4340 

4341 033756 
033756 
033762 

4342 033764 
033764 


4343 
033766 


4344 
4345 
4346 033770 
4347 033776 
4348 034002 
4349 034006 
4350 034014 
4351 034016 
034016 
034022 
034024 
4352 034026 
034026 
4353 034030 
4354 034034 
4355 034042 
4356 034044 
4357 
4358 034046 
4359 034052 
4360 034054 
4361 
4362 034062 
4363 034064 
4364 034070 
4365 034074 
4366 034100 
| 4367 034104 


012700 
104447 


103003 
005037 
000420 


012700 
104447 


103000 


012700 
104447 


103003 
005037 
000466 


012700 
104447 


103462 
000405 


012737 
005037 
005237 
023737 
002365 


013700 
104442 
010001 


103407 
005237 
023737 
001500 
000756 


013700 
006300 
042760 


012100 
010037 
062700 
010037 
062700 
010037 


000037 


003016 


000035 


000036 


003016 


000034 


177777 


034250 


002074 
002074 


002074 


002012 


002074 


034250 


034250 002012 


002074 


100000 002710 


002626 
000002 
002630 
000002 
002632 


RESTRT: 


NEWST: 


CONT: 


PWRFL: 


INIUUT: 


NXTUUT : 


10$: 


FQ 
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READEF #EF .RESTART 


BNCOMPLETE NEWST 


CLR QFLAG2 
BR INIUUT 


READEF #EF .NEW 
BNCOMPLETE CONT 
READEF #EF .CONTINUE 
BNCOMPLETE PWRFL 

CLR QFLAG2 

BR END 


READEF #EF.PWR 


BCOMPLETE END 


BR NXTUUT 

MOV #-1,L$LUN 
CLR UNITS 

INC L$LUN 

CMP L$LUN,L$UNIT 
BGE INIUUT 


GPHARD L$LUN,R1 


BCOMPLETE 10$ 


INC UNITS 3 
CMP UNITS ,L$UNIT ; 
BEQ END1 3 
BR NXTUUT 3 
MOV L$LUN,RO 3 
ASL RO 8 
BIC #100000, ECNTC(RO); 
MOV CR1)+,RO ; 
MOV RO,DRXSCR 8 
ADD #2,RO ; 
MOV RO,DRXCOR ; 
ADD #2,RO $ 
MOV RO,DRXADR : 


is this a restart ? 


if not, branch 


ee ne eee ea eens 
! 


SEQ 0109 


MOV #EF .RESTART,RO 
TRAP CS$REFG 
BCC NEWST 


else flag some questions should be asked 


and start with first uut 


is this a new pass ? 


if not, branch 


is this a continue ? 


if not, branch 


else flag some questions should be asked 


and continue 


is this a power fail 


if yes, just continue 


else test next uut 


initialize logical unit number 


no units dropped yet 


next logical unit to be tested ? 


all units tried ? 
if yes, start again 


get parameter table address in R1 


if not dropped, set up offsets 


else flag another unit dropped 


all dropped ? 
if yes, exit 


else get the next unit 


get unit number 
convert to an offset 


flag unit is being tested 


get first hardware parameter 
save as new SCR address 


add 2 


to give new COR address 


add 2: 


to give new ADR address 


| 
| 
| 
| 
MOV #EF .NEW,RO | 
TRAP CS$REFG 
BCC CONT 
MOV #EF . CONTINUE ,RO 
TRAP CS$REFG 
BCC PWRFL 
MOV #EF .PWR,RO 
TRAP CS$REFG 
BCS END 
MOV L$LUN,RO 
TRAP C$GPHRD 
MOV RO,R1 
BCS 10$ 
| 
| 


Ce 


ee a -----—-- + -- OOO eees— <S44 
' 


G9 
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SEQ 0110 =! 
| INITIALIZE SECTION 

4368 034110 062700 000002 ADD #2,RO ; add 2 

ine 034114 010037 002634 MOV RO,ORXDBR ; to give new DBR address 

4 

ane 034120 011137 002636 MOV CR1),D0RXVEC ; save new vector address 

pe ht 034124 012737 000001 003030 MOV #1,STAFLG ; flag start of pass | 

4375 034132 005037 003026 END: CLR MODE ; assume module is in unipolar mode 

4376 034136 SETVEC #4, #NXM, #340 ; set NXM vector in case there's no module 
034136 012746 000340 MOV #340, -(SP) 
034142 012746 032204 MOV #NXM, -CSP) 
034146 012746 000004 MOV #4,-(CSP) 
034152 012746 000003 MOV #3,-CSP) 
034156 104437 TRAP C$SVEC 
034160 062706 000010 ADD #10,SP 

4377 034164 012777 010000 146442 MOV #ACS,@DRXDBR ; address the ACS register 

4378 034172 017701 146436 MOV ADRXDBR,R1 ; read the ACS 

4379 034176 CLRVEC #4 ; restore the DRS NXM trap catcher 
034176 012700 000004 MOV #4,RO0 
034202 104436 TRAP C$CVEC 

4380 034204 032701 004000 BIT #UNI,R1 ; module in unipolar mode ? 

4381 034210 001002 BNE 10$ ; if yes, branch 

caet 034212 005237 003026 INC MODE ; else flag bipolar 

438 

4384 034216 023737 002226 002224 10$: CMP LSTCHN,FSTCHN ; is last channel greater than the first ? 

4385 034224 003007 BGT END1 ; if yes, branch 

4386 034226 013700 002224 MOV FSTCHN,RO ; else, swap the first and last 

4387 034232 013737 002226 002224 MOV LSTCHN,FSTCHN ; channel numbers 

4388 034240 010037 002226 MOV RO,LSTCHN ; 

4389 

4390 034244 END1: EXIT INIT 
034244 104432 TRAP CSEXIT 

* 034246 000004 -WORD L10025-. 

4391 

4392 034250 000000 UNITS: .WORD 10) ; units dropped count - this prevents infinite 

4393 ; looping in the INIT code if all units are 

4394 ; dropped. 

4395 

4396 034252 ENDINIT 
034252 L10025: 
034252 104411 TRAP C$INIT 

4397 


' 
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| 


INITIALIZE SECTION 


4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 


ee ee 





H9 


SEQ 0111 


5 S96 6 96 9 9 0 9 9 0 5 0 hh hk kb kh 9b 9S 9b 


3 


SUBROUTINES USED DURING INITIALISATION. # 


5 5 96 96 9 9 0 9 kb 9 0 9b 


.SBTTL SETCLK - Routine to set up delay counts 


3+¢ 


functional description : 


This routine sets up 3 delay variables called CNT25M, CNTS00O, and 
CNT25. These give delays of approximately 25 milliseconds, 509 
microseconds or 25 microseconds respectively if used as follows : 


MOV CNTXXX,RO 
1$: DEC RO 
BNE 1$ 


The counts are derived from an L clock if there is one. 
Otherwise, the operator is asked to type 2 characters on the 
console 6 seconds apart. 
Inputs : 
None. 
Implicit inputs : 
If CNT25M is not zero (already set up), the routine does nothing. 
Outputs : 
Console message if there is no L clock on the system. 
Implicit outputs : 
CNT25M contains the count required for 25 milliseconds. 
CNTSOO contains the count required for 500 microseconds. 
CNT25 contains the count required for 25 microseconds. 
Subordinate routines used : 


CRLF - line feed print routine. 
CLINT - dummy clock interrupt service routine 


Functional side effects : 
RO to R5 are corrupted. 
If a line time clock is found, vector 100 is set up so that 
interrupts to it are ignored. The SETVEC macro can be used to 
set up the vector for a device interrupt. 

Calling sequence : 


JSR PC,SETCLK 


19 
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ee ee eee 4 


SEQ 0112 
SETCLK - Routine to set up delay counts 

4456 

4457 034254 005737 026126 SETCLK: TST CNT25M ; counters already set up? 

4458 034260 001402 BEQ 10$ ; if not, branch 

Heed 034262 000137 035130 JMP SETEX ; if yes, exit 

446 

4461 034266 005004 10$: CLR R4 ; clear a counter 

4462 034270 GETPRI Re2 ; save current priority in R2 
034270 104440 TRAP C$GPRI 
034272 010002 MOV RO,R2 

4463 034274 005037 035132 CLR CLKFLG ; assume there is no clock with a CSR 

4464 034300 CLOCK L,Ri ; get address of clock table 
034300 012700 000114 MOV #'L,RO 
034304 104462 TRAP C$CLCK 
034306 010001 MOV RO,R1 

4465 034310 SETVEC #4, #NXM, #340 ; set up clock CSA trap 
034310 012746 000340 MOV #340,-(CSP) 
024314 012746 032204 MOV @NXM, - CSP) 
034320 012746 000004 MOV #4,-(CSP) 
034224 012746 000003 MOV #3,-(CSP) 
034330 104437 TRAP C$SVEC 
634332 062706 000010 ADD #10,SP 

4406 034336 005037 002770 CLR NXMFLG ; clear NXM flag 

4467 034342 005771 000000 TST acRi) ; access the clock address 

4468 034346 005737 002770 TST NXMFLG ; *don't delete, needed for falcons 

4469 034352 005737 002770 TST NXMFLG ; does the clock have a register ? 

4470 034356 001005 BNE LCLOCK ; if not, branch 

4471 034360 005237 035132 INC CLKFLG ; else flag there is a clock CSR 

4472 034364 012771 000100 000000 MOV #100,a(R1) ; and set it up to interrupt 

4473 ; 

4474 ; Use the L clock 

4475 : 

4476 034372 LCLOCK: CLRVEC #4 ; set vector 4 to unused pool 
034372 012700 000004 MOV #4,RO 
034376 104436 TRAP C$CVEC 

4477 034400 012703 000006 MOV #6 ,R3 ; if 50 hz, 100 ms = 5 interrupts 

4478 034404 026127 000006 000062 CMP 6(R1), #50. ; 50 hz correct? 

4479 034412 001401 BEQ 10$ ; if yes, branch 

4480 034414 005203 INC R3 ; else allow 6 interrupts 

4481 

4482 034416 010305 10$: MOV R3,R5 ; save number of interrrupts 

4483 034420 SETVEC #100, #KLINT,#340; set up the clock vector 
034420 012746 000340 MOV #340,-(SP) 
034424 012746 034506 MOV @KLINT,-CSP) 
034430 012746 000100 MOV #100,-CSP) 
034434 012746 000003 MOV #3,-(CSP) 
034440 104437 TRAP C$SVEC 
034442 062706 000010 ADD #10,SP 

4484 ; to wait for ist interrupt 

4485 034446 SETPRI #0 ; and drop the priority 
034446 012700 000000 MOV #0,RO 
034452 104441 TRAP C$SPRI 

4486 034454 005000 CLR RO ; clear RO and the carry bit 

4487 034456 020305 20$: CMP R3,R5 ; has count been dropped ? 

4488 034460 001004 BNE 30$ ; if yes, start the counters 

4489 034462 005300 DEC RO ; waited too long ? 

4490 034464 001374 BNE 20$ ; if not, wait longer 

4491 034466 000137 034600 JMP USCLOK ; if yes, assume no clock 
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4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 
4503 
4504 


4505 


4506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 


4522 


4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 

| 4532 


034472 
034474 
034476 
034500 
034502 
034504 


034506 
034510 
034512 


034514 
034514 
034516 
034520 
034520 
034524 
034530 
034534 
034540 
034542 
034546 
034550 
034554 
03 ‘556 


034562 
034564 
034566 
034570 
034572 
034574 
034576 


034600 
034600 
034602 
034604 
034604 
034610 
034614 
034620 
034624 
034626 
034632 
034636 
034640 


005005 
005204 
001376 
105205 
001374 
000435 


005303 
001401 
000002 


010200 
104441 


012746 
012746 
012746 
012746 
104437 
062706 
022626 
005737 
001402 
005071 


000241 
006005 
006004 
000241 
006005 
006004 
000524 


010200 
104441 


012746 
012746 
012746 
012746 
104437 
062706 
005737 
001402 
005071 


177560 
177562 
177564 
177566 


, SETCLK - Routine to set up delay counts 


000340 
032214 
000100 
000003 


000010 
035132 
000000 


000340 
032214 
000100 
000003 


000010 
035132 


000000 


30$: 
40$: 


KLINT: 


40$: 


50$: 





SETPRI 


SETVEC 


CMP 
TST 
BEQ 
CLR 


CLC 
ROR 
ROR 
CLC 
ROR 
ROR 
BR 


JI 


RS 

R4 

40$ 

RS 

40$ 
USCLOK 


R3 
40$ 


R2 


(SP)+,(SP)-+ 
CLKFLG 

50$ 

acRi) 


RS 
R4 
RS 
R4 
SAVCNT 


; 
USCLOK: SETPRI R2 


SEQ 0113 

; clear the high counter 

; count the delay for 5 or 6 interrupts 

; 

3 

; if too long, assume no clock 

; 5 or 6 interrupts? 

; if yes, tidy up 

; else keep counting 

; restore the priority 
MOV R2,RO0 
TRAP C$SPRI 

#100, #CLINT, #340; ignore further interrupts to vector 100 

MOV #340, -(SP) 
MOV #CLINT,-CSP) 
MOV #100, -(SP) 
TRAP C$SVEC 
ADD #10,SP 

; tidy up the stack” 

; can we disable a clock ? 

; if not, branch 

; else, disable clock interrupts 

; divide the 100 millisecond counters 

; by 4 to give 25 milliseconds 

3 

; 

; and save the count 

; Come here if not enough clock interrupts occur before the counters overflow 

; restore the priority 
MOV R2,R0 
TRAP C$SPRI 

SETVEC #100,#CLINT,#340; ignore further interrupts to vector 100 

MOV #340,-(SP) 
MOV @CLINT,-(SP) 
MOV #100, -CSP) 
MOV #3,-CSP) 


; 
; Use the console for timing 


TST 
BEQ 
CLR 


CLKFLG 
NOCLOK 
acRi) 


TKS=177560 
TKB=177562 
TPS=177564 
TPB=177566 





TRAP C$SVEC 
ADD #10,SP 
; can we disable a clock ? 
; if not, branch 
; else disable clock interrupts 


keyboard status register 
keyboard date buffer 
printer status register 
printer date buffer 


ee ee ee ees ee eee od 


EE — ——  —— 


MISCELLANEOUS SECTIONS 


| SETCLK - Routine to set 


4533 
4534 


4535 


4536 
4537 
4538 
4539 
4540 
4541 
4542 
4543 


4544 
4545 
4546 


4547 
4548 
4549 
4550 
4551 
4552 
4553 
4554 
4555 


4556 


4557 
4558 
4559 
4560 
4561 
4562 
4563 


4564 
4565 
4566 
4567 
4568 
4569 
4570 


034644 
034644 
034650 
034654 
034660 
034664 
034666 
034672 
034672 
034676 
034702 
034704 
034706 


034712 
034716 
034720 
034724 
034730 
034734 
034736 
034736 


034740 
034746 
034746 
034752 
034754 


034762 
034766 
034770 
034772 
034774 


034776 


035050 
035054 


012746 
012746 
012746 
012746 
104437 
062706 


012746 
012746 
010600 
104417 
062706 


105737 
100375 
013700 
042700 
020027 
001001 


104444 
013737 


012700 
104441 
012737 


012705 
005305 
001376 
005204 
000772 


010200 
104441 


012700 
104436 
022626 
005037 
013700 
042700 
020027 
001001 


104444 
013737 
004737 


010437 
012700 


KI 
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up delay counts 


NOCLOK: SETVEC #60,#TTINT, #340 


000340 
034776 
000060 
000003 
000010 
PRINTF #TIMMSG 
035134 
000001 
000004 
177560 10$: TSTB TKS 
BPL 10$ 
177562 MOV TKB,RO 
177600 BIC #177600 ,RO 
000003 CMP RO, #3 
BNE 20$ 
DOCLN 
177562 177566 20%: MOV TKB, TPB 
SETPRI #0 
000000 
000100 177560 MOV #100,TKS 
000360 308: MOV #240. ,R5 
40$: DEC RS 
BNE 40$ 
INC R4 
BR 30$ 
TTINT: SETPRI R2 
CLRVEC #60 
000060 
CMP (SP)+,(SP)-+ 
177560 CLR TKS 
177562 MOV TKB ,RO 
177600 BIC #177600 ,RO 
000003 CMP RO, #3 
BNE 10$ 
DOCLN 
177562 177566 10%: MOV TKB, TPB 
026134 JSR PC, CRLF 
i 
; SAVE THE COUNTERS 
i 
026126 SAVCNT: MOV R4,CNT25M 
000062 MOV #50. ,RO 





set up interrupt vector 


MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

‘TYPE 2 CHARACTERS 6 SECONDS APART’ 
MOV 
MOV 
MOV 
TRAP 
ADD 

is first character ready? 

if not, wait 

else get the character 

discard unwanted bits 

if tC, return to supervisor 
TRAP 

now echo the character 

drop the priority 
MOV 
TRAP 


allow interrupts 


set up modulo 240 counter 

start counting : 

r5 is modulo 240 counte 

update the counter 

6 seconds/240 = 25 milliseconds 


restore the priority 


MOV 
TRAP 
and the keyboard vector 
MOV 
TRAP 
tidy up the stack 
disable interrupts 
else get the character 
discard unwanted bits 
if tC, return to supervisor 
TRAP 


else, echo the character 
and print a line feed 


save the 25 milliseconds counter 
now divide by 50 


SEQ 0114 


#TTINT,-CSP) 
#60, -(CSP) 
#3,-CSP) 
C$SVEC 
#10,SP 


@TIMMSG, -( SP) 


#1,-(SP) 
SP,RO 
C$PNTF 
#4,SP 


C$DCLN 


#0 ,RO 
C$SPRI 


R2,RO 
C$SPRI 


#60 ,RO 
CsCveEC 


CS$DCLN 


ee 


———— ae ee ee em a a _ 
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SEQ 0115 
_SETCLK - Routine to set up delay counts 


4571 035060 062704 000031 ADD #25.,R4 ; to nearest 50 
4572 035064 005001 CLR R1 ; initialise result 
4573 035066 160004 10$: SUB RO,R4 ; remainder < 0 ? 
4574 035070 002402 BLT 20$ ; if yes, branch 
4575 035072 005201 INC Ri ; else increment result 
4576 035074 000774 BR 10$ ; and try again 
ha 035076 010137 026130 20$: MOV R1,CNTSOO ; save the 300 microseconds counter 
4579 035102 012700 000024 MOV #20. ,RO ; Now divide by 20 
4580 035106 062701 000012 ADD #10. ,R1 ; to nearest 20 
4581 035112 005002 CLR R2 ; initialise result 
4582 035114 160001 30$: SUB RO,R1 ; remainder < 0 ? 
4583 035116 002402 BLT 40$ ; if yes, branch 
4584 035120 0052C2 INC R2 ; else increment result 
4585 035122 000774 BR 30$ ; and try again 
pes 035124 010237 026132 40$: HOV R2,CNT25 ; save the 25 microseconds counter 
see 035130 000207 SETEX: RTS PC ; return 
458 
een 035132 000000 CLKFLG: .WORD 0O ; set if DRS finds a clock with a CSR 
4 
4592 -NLIST BEX 
4593 035134 045 116 045 TIMMSG: .ASCIZ /sNSATYPE 2 CHARACTERS 6 SECONDS APART >/ 
4594 .LIST BEX 
4595 .EVEN 


M9 
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AUTODROP SECTION 


4597 
4598 
| 4599 
| 4600 
| 4601 
4602 
| 4603 
4604 
4605 
4606 


4607 
4614 
4615 
4617 
4618 
4619 
4620 
4621 
4622 
| 


4623 
4624 


4625 


4616 
4626 


035204 
035204 


035204 
035204 
035210 
035214 
035220 
035224 
035226 
035232 
035236 


035242 
035246 
035250 
035250 
035254 
035256 
035256 
035262 
035264 
035264 
035264 


012746 
012746 
012746 
012746 
104437 
062706 
005037 
005777 


005737 
001403 


013700 
104451 


012700 
104436 


104461 


000010 
002770 
145364 


002770 


002074 


000004 


-SBTTL AUTODROP SECTION 


; THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
; THE "ADR" FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
; SEE IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 

; DROPPED FROM TESTING. 

oli 


BGNAUTO 
L$AUTO:: 


SEQ 0116 


SETVEC #4,0NXM,#PRIO7 ; set up non - existent memory trap vector. 


MOV @PRIO7, -( SP) 
MOV ONXM, -( SP) 
MOV 04,-(SP) 
MOV 03,-(SP) 
TRAP C$SVEC 
ADO #10,SP 
CLR NXMFLG ; clear non - existent memory flag 
TST @DRXSCR ; reference memory address for the DRX11-C 
3; to see if it exists. 
; If the device doesn't exist, the resultant trap to vector 04 will 
; cause the flag NXMFLG to be set (see interrupt routine NXM). 
TST NXMFLG ; wes there oe trap ? 
BEQ 10$ ; branch if not 
DODU L$LUN ; else drop the device 
MOV L$LUN,RO 
TRAP C$D0DuU 
10$: CLRVEC #4 ; return vector 4 to normal state 
04 ,RO 
TRAP CSCVEC 
ENDAUTO 
L10026: 
TRAP CsaAuTO 


MISCELLANEOUS SECTIONS 
CODING SECTION 


CLEANUP 


4628 
4629 
4630 
4631 
4632 
4633 
4634 
4635 


4636 


4637 


4638 
4639 
4640 


0352606 
035266 
035266 
035266 
035272 
035274 
035274 
035300 
035302 
035310 
035312 
035312 
035316 
035322 
035326 
035332 
035334 
035340 
035346 
035346 
035352 
035354 
035354 
035356 


035360 
035360 
035360 


012700 
104441 


013700 
104436 
022737 
001021 


012746 
012746 
012746 
012746 
104437 
062706 
042777 


012700 
104436 


104432 
000002 


104412 


_———— ee 


N9 
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002114 


145262 


-SBTTL CLEANUP CODING SECTION 


a ee le 


;*¢ 
; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


10$: 


BGNCLN 
SETPRI 


CLRVEC 


CMP 
BNE 
SETVEC 


BIC 
CLRVEC 


EXIT 


ENOCLN 


#PRIO7 
DRXVEC 


025. ,L$TEST 
10$ 
04, ONXM, OPRIO7 


#100, 3DRXCOR 
04 


CLN 


LS$CLEAN: : 


stop any more interrupts 
MOV 


TRAP 


restore the DRS trap cetcher 
MOV 


ere we 
branch 
set up 


finish 
return 


TRAP 
coming from test 25 ? 
if not 


SEQ 0117 


@PRIO7,RO 
C#SPRI 


ORXVEC ,RO 
CsCvec 


non - existent memory vector. 


MOV OPRIO7, -( SP) 
MOV ONXM, -( SP) 
MOV 04,-(SP) 
MOV @3,-(SP) 
TRAP Cs$SvEC 
AOD #10,SP 

up DMA 

vector 04 to normal stete 
MOV 04,RO 
TRAP CSsCvEC 
TRAP CsExIT 
. WORD L10027-. 

L10027: 

TRAP CSCLEAN 


aw ee oe - 
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ea eee 


| DROP UNIT SECTION 


| 
| 


104453 


B10 


-SBTTL DROP UNIT SECTION 


3° 
; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO NO LONGER BE TESTED. 


BGNDU 
L$OU:: 
000001 002750 MOVB #1 ,OROPED(RO) ; flag unit dropped in perem table 
PRINTF #DROPD,RO ; ‘UNIT DROPPED’ 
MOV RO, -(SP) 
035416 MOV @DROPD , -( SP) 
000002 MOV @2,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
000006 ADD #6, SP 
EXIT DU 
-WORD J$JMP 
-WORD 1L10030-2-. 
-NLIST BEX 
116 045 DROPD: .ASCIZ /SNSAUNIT SD28A DROPPED/ 
-LIST BEX 
. EVEN 
ENDOU 


L10030: 
TRAP Cs$0u 


SEQ@ 0118 


a, OO SOS 


aE 


C10 
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ADD UNIT SECTION 


4668 
4669 
4670 
4671 
4672 
4673 
4674 
4675 
4676 


4677 
4678 
4679 
4680 


4681 
4682 


4683 
4684 
4685 


035450 
035450 


035450 
035454 
035454 
035456 
035460 
035460 
035460 


035462 


105060 002750 


000167 
000000 


104452 


-SBTTL ADD UNIT SECTION 


3° 


; THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
; TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 


; TO THE TEST CYCLE. 
BGNAU 
CLRB DROPED(RO) 
EXIT AU 


ENDAU 


ENDMOD 


L$AU:: 


SEQ 0119 


i flag unit not dropped in peram table 


L10031: 


. WORD 
. WORD 


TRAP 


J$JMP 
L10031-2-. 


C$AU 


D10 
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ADD UNIT SECTION 
| 4688 . TITLE HARDWARE TESTS 


4699 
| 
| 


4726 035462 BGNMOD 


SEQ 0120 


—— ee 


eee 


—— ee eee ee 


E10 
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pa 1 - DRX11-C Register NXM Test. 
| 
{ 


4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 035462 
035462 

4736 035462 

4737 035466 
035466 

4738 035470 

4739 035474 

4740 035476 
035476 
035502 
035506 
035510 
035512 

4741 

4742 035516 

4743 035522 
035522 
035526 
035532 
035536 
035542 
035544 


4745 035550 
4746 035554 
4747 035560 


4749 035562 
035562 
4750 035564 
4751 035570 
4752 035572 
4753 035576 
4754 035602 
4755 035604 
4756 035606 
035606 
035610 
035612 
035614 
4757 035616 
035616 
035616 


4759 035620 
4760 035624 
4761 035626 


4763 035630 
| 4764 035632 


005037 


104421 
032700 
001410 


012746 
012746 
010600 
104417 
062706 


005037 


012746 
012746 
012746 
012746 
104437 
062706 


013701 
012702 
005003 


003030 


001000 


035700 
000001 


000004 
003032 


000340 
032204 
000004 
000003 


000010 


002626 
000004 


104404 
005037 
005711 
005737 
004737 
001405 
005203 


104456 
000144 
035731 
023460 


002770 


002770 
026306 


104405 


062701 
005302 
001355 


005703 
001404 


000002 


.SBTTL TEST 1 - DRX11-C Register NXM Test. 


3*¢ 


; This test checks that accessing the DRX11-C SCR, COR, ADR and 


; DBR registers does not cause a NXM trap. 


BGNTST 


CLR 
RFLAGS 


BIT 


BEQ 
PRINTF 


10$: CLR 
SETVEC 


20$: MOV 
MOV 
CLR 


30$: BGNSEG 


40$: ENDSEG 


STAFLG 
RO 


@PNT ,RO 
10$ 
#TSHD1 


ITRCNT 
#4, #NXM, #PRIO7 


DRXSCR,R1 
#4,R2 
R3 


NXMFLG 

(R1) 

NXMFLG 

INSERT 

40$ 

R3 
100,£100,ERONR 


SEQ 0121 
Ti:: 
flag test has been run since start 
read operator flags 
TRAP C$RFLA 
print test headers ? 
if not, branch 
else, print test header 
MOV #TSHD1,-(SP) 
MOV #1,-(CSP) 
MOV SP ,RO 
TRAP C$PNTF 
ADD #4 ,SP 


clear iteration counter 
set up NXM trap service routine 
MO #PRIO7,-(SP) 


MOV @NXM, - CSP) 
MOV #4,-(SP) 
TRAP C$SVEC 

ADD #10,SP 


get first register address 
test 4 registers 
clear the error flag 


TRAP C$BSEG 
clear the NXM flag 
test register address 
was there a trap ? 
skip branch if error insert selected 
if no trap, branch 
else flag the error 
print “ADDRESSING ERROR” 
TRAP CS$ERHRD 
100 


. WORD 
-WORD €E€100 
-WORD ERDNR 


10000$: 
TRAP CSESEG 


point to next register 
ell registers tested ? 
if not, branch 


was there an error ? 
if not, branch 


Te I 
mr LT 


— Fe ee 


F10 
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| TEST 1 - DRX11-C Register NXM Test. 


4765 


4766 


| 
4767 
4768 
4769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
| 


4779 
4780 
4781 
4782 
4783 


035634 
035634 
035640 
035642 
035642 


035644 
035650 
035652 
035656 
035664 


035666 
035666 
035672 
035674 
035674 
035676 


035700 
035731 


035774 
035774 
035774 


- ——— -— 


013700 002074 


104451 
104444 


005737 
001006 
005237 
023727 
001331 


012700 
104436 
104432 
000076 


045 
104 


104401 


002234 


003032 
003032 


000004 


123 
122 


000010 


062 
130 


SO$: 


60$: 


TSHD1:: 
E100: 


DODU 


DOCLN 


TST 
BNE 
INC 
CMP 
BNE 


CLRVEC 


EXIT 


-NLIST 
-ASCIZ 
-ASCIZ 
-LIST 
EVEN 


ENDTST 


L$LUN 3 


QVMODE ; 
60$ 3 
ITRCNT ; 
ITRCNT, #10 F 
20$ F 


HQ ; 


TST ; 


BEX 
/#S2SAREGISTER NXM TESTSN/ 
/DRX11-C REGISTER ADDRESSI 
BEX 


mo rn 


SEQ 0122 


else drop the unit under test 
MOV i. $LUN,RO 
TRAP C$D0DUL 
and run the clean up routine 
TRAP C$DCLN 


is quick verify mode selected ? 
if yes, exit test 

else, increment iteration counter 
iterations completed ? 

if not, do another iteration 


restore DRS trap catcher 
MOV #4 ,RO 
TRAP C$CVEC 


TRAP CSEXxIT 
-WORD L10032-. 


and exit the test 


NG ERROR/ 


L10032: 
TRAP CSsETST 


— 


—— ee ce ee 


G10 
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| TEST 2 - Reset Test 


4785 
4786 
4787 
4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 035776 
035776 
4799 035776 005037 003030 
4800 036002 
036002 104421 
4801 036004 032700 001000 
4802 036010 001410 
4803 036012 
036012 012746 036362 
036016 012746 000001 
036022 010600 
036024 104417 
036026 062706 000004 
4804 036032 005037 003032 
4805 
4806 036036 013700 002074 
4807 036042 105760 002774 
4808 036046 001026 
4809 036050 105260 002774 
4810 036054 005737 003026 
4811 036060 001011 
4812 ‘036062 
036062 012746 036572 
036066 012746 000001 
036072 010600 
036074 104417 
036076 062706 000004 
4813 036102 000410 
4814 036104 
036104 012746 036644 
036110 012746 000001 
036114 010600 
036116 104417 
036120 062706 000004 


4816 036124 
036124 104404 
4817 036126 052777 000040 
4818 036134 004737 026106 
4819 036140 004737 026106 
4820 036144 012737 010000 003020 
4821 036152 012777 010000 144454 
4822 036160 017737 144450 003022 
; 4823 036166 013700 003022 


144472 


.SBTTL TEST 2 - Reset Test 


344 


This test checks that the AAFO1-A ACS register is correctly set 
; or reset after a DRX11-C reset and after a data system reset. 
Both are checked to complete within 1 millisecond. 


show whether it indicates unipolar or bipolar output mode eg. 


; “MODULE IS SWITCHED TO UNIPOLAR MODE”. 


BGNTST 


CLR 
RFLAGS 


BIT 
BEQ 
PRINTF 


10$: CLR 


MOV 
TSTB 
BNE 
INCB 
TST 
BNE 
PRINTF 


BR 
20$: PRINTF 


30$: BGNSEG 


BIS 
JSR 
JSR 
MOV 
MOV 
MOV 
MOV 


STAFLG 
RO 


#PNT,RO 
10$ 
#TSHD2 


ITRCNT 


L$LUN,RO 
PFLAG1(RO) 


30$ 
PFLAG1(RO) 
MODE 

20$ 
#UNIMES 


30$ 
#BIMES 


#RES , ADRXSCR 
PC,WTS00 
PC,WTSO0O 
#ACS ,GOOD 
#ACS , IORXDBR 
@DRXDBR , BAD 
BAD ,RO 





= ss oe ee oe oe oe 


= © © © oF oe oF 


; 

; 

; Bit 11 of the ACS register is read and a message is output to 
; 


SEQ 0123 
T2:: 
flag test has been run since start 
read operator flags 
TRAP C$RFLA 
print test headers ? 
if not, branch 
else, print test header 
MOV #TSHD2, -C SP) 
MOV #1,-CSP) 
MOV SP,RO 
TRAP C$PNTF 
ADD #4 ,SP 


clear iteration counter 


get unit number 

has message already been printed ? 

if yes, branch 

else flag we are printing it now 

module in unipolar mode ? 

if not, branch 

else, print "UNIPOLAR MODE" 
MOV #UNIMES , -C SP) 


MOV #1,-CSP) 
MOV SP,RO 
TRAP CS$PNTF 
ADD #4 ,SP 
and branch 
print “BIPOLAR ODE” 
MOV #BIMES,-(CSP) 
MOV #1,-(CSP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #4,SP 


TRAP C$BSEG 
do a device reset 
weit for 1 millisecond 
(2*500 microseconds) 
save expected ACS contents 
set DBR to address ACS 
read ACS register 
get the contents into RO 





4824 
4825 
4826 
4827 
4828 
4829 


HARDWARE TESTS 
| TEST 2 - Reset 


036172 
036176 
036202 
036210 
036214 
03#216 
C36216 
036220 
036222 
036224 
036226 
036226 
036226 


036230 
036230 
036232 
036240 
036246 
036252 
036256 
036264 
036272 
036276 
036302 
036306 
036314 
036320 
036322 
036322 
036324 
036326 
036330 
036332 
036332 
036332 


036334 
036340 
036342 
036346 
036354 


036356 
036356 
036360 


036362 
036404 
036475 
036572 
036644 


036716 


es ee ee 


H10 
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Test 


042700 
050037 
023737 
004737 
001404 


104457 
000310 
036404 
023416 


104405 


104404 
012777 
052777 
004737 
004737 
012737 
017737 
013700 
042700 
050037 
023737 
004737 
001404 


104457 
000311 
036475 
023416 


104405 


005737 
001006 
005237 
023727 
001263 


104432 
000336 


171777 
003020 
003022 
026306 


010020 
000001 
026106 
026106 
010000 
144344 
003022 
171777 
003020 
003022 
026306 


002234 


003032 
003032 


123 
103 
103 
116 
116 


003020 


144374 
144360 


003020 
003022 


003020 


000010 





40$: 


SO0$: 


60$: 


70$: 


TSHD2: : 
E200: 
E201: 
UNIMES: 
BIMES: 


Q 
ERRSOFT 


ENDSEG 


BGNSEG 


MOV 
BIS 


ERRSOFT 


ENDSEG 


TST 
BNE 
INC 
CMP 
BNE 


EXIT 


-NLIST 
.ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
.ASCIZ 
-LIST 

.EVEN 


ENDTST 


#tC<UNI!CMP>,RO 
RO, GOOD 

BAD ,GOOD 

INSERT 


40$ 
200,£200,EGB 


#ACS!DSR,@DRXDBR 
#FNCTO,@DRXSCR 
PC,WTS00 
PC,WTSOO 

#ACS ,GOOD 
@DRXDBR , BAD 

BAD ,RO 
#tC<UNI!CMP>,RO 
RO,GOOD 
BAD , GOOD 

INSERT 


60$ 
201,E201,EGB 


QVMODE 

70$ 

ITRCNT 
ITRCNT , #10 
30$ 


TST 


BEX 


/#S28ARESET TESTSN/ 

ZACS REGISTER INCORRECT 
ZACS REGISTER INCORRECT 
/SNSAMODULE IS SWITCHED 
/SNSAMODULE IS SWITCHED 


BEX 


SEQ 0124 


and isolate uncertain bits 

set them in GOOD if they are set 
contents correct ? 

skip branch if error insert selected 


branch if ACS is OK 

print "ACS REGISTER INCORRECT” 
TRAP CSERSOFT 
-WORD 200 
. WORD E200 
.WORD EGB 

"AFTER DRX11-C RESET” 
10000$: 

TRAP CSESEG 
TRAP C$BSEG 


set up for a data system reset 
transfer to ACS 

wait for 1 millisecond 

(2*500 microseconds) 

save expected ACS contents 

read ACS register 

get the contents into RO 

and isolate uncertain bits 

set them in GOOD if they are set 
contents correct ? 

skip branch if error insert selected 
branch if ACS is OK 

print “ACS REGISTER INCORRECT” 


TRAP CSERSOFT 
-WORD 201 
-WORD E201 
-WORD EGB 
“AFTER DATA SYSTEM RESET” 
10001$: 
TRAP CSESEG 


is quick verify mode selected ? 
if yes, exit test 

else, increment iteration counter 
iterations completed ? 

if not, do another iteration 


TRAP 
. WORD 


CSExIT 
L10033-. 


1 MILLISECOND AFTER DRX11-C RESET/ 

1 MILLISECOND AFTER DATA SYSTEM RESET/ 
TO UNIPOLAR MODESN/ 

TO BIPOLAR MODESN/ 


— Le ee 
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| TEST 2 - Reset Test 


036716 
036716 104401 


T10 


L10033: 


TRAP 


CSETST 


SEQ 0125 


a ——— A —— 


J10 
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| SEQ 0126 
; TEST 3 - ACS Read/write test. 
4867 -SBTTL TEST 3 - ACS Read/write test. 
4868 
4869 pee 
4870 ; This test checks that the read/write bits of the ACS register 
asta ; can all be set, all cleared and individually set. 
4873 036720 BGNTST 
036720 T3:: 
4874 036720 005037 003030 CLR STAFLG ; flag test has been run since start 
4875 036724 RFLAGS RO ; read operator flags 
036724 104421 TRAP CS$RFLA 
4876 036726 032700 001000 BIT #PNT,RO ; print test headers ? 
4877 036732 001410 BEQ 10$ ; if not, branch 
4878 036734 PRINTF #TSHD3 ; else, print test header 
036734 012746 037344 MOV @TSHD3, -CSP) 
036740 012746 000001 MOV #1,-CSP) 
036744 010600 MOV SP ,RO 
036746 104417 TRAP C$PNTF 
036750 062706 000004 ADD #4,SP 
rr be 036754 005037 003032 10$: CLR ITRCNT ; clear iteration counter 
4881 036760 052777 000040 143640 20$: BIS #RES , @ADRXSCR ; reset the DRX11-C 
4882 036766 004737 026106 JSR PC,WTSO00 ; wait for 1 millisecond 
4883 036772 004737 026106 JSR PC,WTSOO ; €2*500 microseconds) 
4884 ; 
4885 ; Check that all R/W bits can be set 
4886 : 
4887 036776 BGNSEG 
036776 104404 TRAP C$BSEG 
4888 037000 012737 011417 003020 MOV #ACS!MNT!COUT!SBE!ECE!MET!GO,GOOD ; expected value 
4889 037006 013777 003020 143620 MOV GOOD , ARXDBR ; set up for ACS 
4890 037014 052777 000001 143604 BIS #FNCTO,@DRXSCR ; transfer to ACS 
4891 037022 017737 143606 003022 MOV @DRXDBR , BAD ; read from ACS 
4892 037030 013700 003022 MOV BAD ,RO ; get the contents into RO 
4893 037034 042700 171777 BIC #tC<UNI!CMP>,RO ; and isolate uncertain bits 
4894 037040 050037 003020 BIS RO,GOOD ; set them in GOOD if they are set 
4895 037044 023737 003022 003020 CMP BAD , GOOD ; contents correct ? 
4896 037052 004737 026306 CALL INSERT ; skip branch if error insert selected 
4897 037056 001404 BEQ 30$ ; branch if ACS is OK 
4898 037060 ERRSOFT 300,€300,EGB ; print “BITS COULD NOT BE SET” 
037060 104457 TRAP CSERSOFT 
037062 000454 -WORD 300 
037064 037377 -WORD €E300 
037066 023416 -WORD EGB 
4899 037070 30$: ENDSEG 
037070 10000$: 
037070 104405 TRAP CSESEG 
4900 i 
tee ; Check that all R/W bits can be cleared 
4 : 
4903 037072 BGNSEG 
037072 104404 TRAP CS$BSEG 
4904 037074 012737 010000 003020 MOV #ACS ,GOOD ; expected value 
4905 037102 013777 003020 143524 MOV GOOD , ARXDBR ; set up for ACS 
4906 037110 052777 000001 143510 BIS #FNCTO,@DRXSCR ; transfer to ACS 
4907 037116 017737 143512 003022 MOV @DRXDBR , BAD ; read from ACS 
; 4908 037124 013700 003022 MOV BAD ,RO ; get the contents into RO 








em me ee a ee + 


KLO 
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| TEST 3 - ACS Read/write test. 


| 4909 
4910 
4911 
4912 
4913 
4914 


4915 


4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 


4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 


037130 
037134 
037140 
037146 
037152 
037154 
037154 
037156 
037160 
037162 
037164 
037164 
037164 


037166 
037172 
037176 
037200 


037202 
037204 
037206 


037210 
037210 
037212 
037220 
037224 
037232 
037240 
037246 
037252 
037256 
037262 
037270 
037274 
037276 
037276 
037300 
037302 
037304 
037306 
037306 
037306 


037310 


037312 
037316 
037320 
037324 
037332 
037334 


037340 


042700 
050037 
023737 
004737 
001404 


104457 
000455 
037444 
023416 


104405 


012701 
012702 
030201 
001003 


006302 
103442 
000773 


104404 
012737 
050237 
013777 
052777 
017737 
013700 
042700 
050037 
023737 
004737 
001404 


104457 
000456 
037515 
023416 


104405 
000734 


005737 
001010 
005237 
023727 
001402 
000137 


171777 
003020 
003022 
026306 


001416 
000001 


010000 
003020 
003020 
000001 
143370 
003022 
171777 
003020 
003022 
026306 


002234 


003032 
003032 


036760 


003020 


003020 


143402 
143366 
003022 


003020 


000010 


70$: 


80$: 


BIC #tC<UNI!CMP>,RO ; and isolate uncertain bits 
BIS RO,GOOD ; set them in GOOD if they are set 
CMP BAD ,GOOD ; contents correct ? 
CALL INSERT ; skip branch if error insert selected 
BEQ 40$ ; branch if ACS is OK 
ERRSOFT 301,E€301,EGB ; print "BITS COULD NOT BE CLEARED” 
TRAP CSERSOFT 
. WORD 301 
. WORD E301 
. WORD EGB 
ENDSEG 
10001$: 
TRAP CSESEG 
that each R/W bit can be set 
MOV #MNT!COUT!SBE!ECE!MET,R1 ; save R/W bits in Ri 
MOV #1,R2 ; first bit to test in R2 
BIT R2,R1 ; is it a R/W bit ? 
BNE 70$ ; if yes, test it 
ASL R2 ; else find next R/W bit 
BCS 90$ ; if all done, exit test 
BR 50$ ; else check if next bit is R/W 
BGNSEG 
TRAP C$BSEG 
MOV #ACS,GOO0D ; clear all R/W bits 
BIS R2,G00D ; except for one bit 
MOV GOOD , ADRXDBR ; load into DBR 
BIS #FNCTO,@DRXSCR ; transfer to ACS 
MOV @DRXDBR , BAD ; read it back 
MOV BAD ,RO ; get the contents into RO 
BIC #tC<UNI!CMP>,RO ; and isolate uncértain bits 
BIS RO, GOOD ; set them in GOOD if they are set 
CMP BAD ,GOOD ; contents correct ? 
CALL INSERT ; skip branch if error insert selected 
BEQ 80$ ; branch if ACS is OK 
ERRSOFT 302,E302,EGB ; print “BITS COULD NOT BE” 
TRAP CS$ERSOFT 
. WORD 302 
. WORD E302 
. WORD EGB 
ENDSEG 3 “INDIVIDUALLY SET” 
10002$: 
TRAP CSESEG 
BR 60$ ; test next bit 
TST QVMODE ; is quick verify mode selected ? 
BNE 100$ ; if yes, exit test 
INC ITRCNT ; else, increment iteration counter 
CMP ITRCNT, #10 ; iterations completed ? 
BEQ 100$ ; if yes, branch 
JMP 20$ ; else, do another iteration 
EXIT TST 





ee E———“‘“_S 


SEQ 0127 


Oi OOOO TEE EE LL 





ee 
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/TEST 3 - ACS Read/write test. 


037340 104432 
037342 000236 


| 
| 
| 
‘ 


4953 
4954 
4955 
4956 
4957 
4958 
4959 
4960 
4961 
4962 


4963 


037344 
037377 
037444 
037515 


037600 
037600 


045 
101 
101 
101 


037600 104401 


123 
103 
103 
103 


062 
123 
123 
123 


TSHD3: : 
E300: 
E301: 
E302: 


-NLIST 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-LIST 

- EVEN 


ENDTST 


TRAP 
. WORD 


BEX 

\SS28AACS READ/WRITE TESTSN\ 

\ACS READ/WRITE BITS COULD NOT BE SET\ 

\NACS READ/WRITE BITS COULD NOT BE CLEARED\ 

hi READ/WRITE BITS COULD NOT BE INDIVIDUALLY SET\ 


L10034: 


CSsExIT 


tL 10034-. 


CSETST 


SEQ 0128 


— ome = 


Se ee wee 


M10 
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TEST 4 - CTA Read/write Test. 


4965 
4966 
4967 
4968 
4969 
4970 
4971 
4972 


4973 
4974 


4975 
4976 
4977 


037602 
037602 
037602 
037606 
037606 
037610 
037614 
037616 
037616 
037622 
037626 
037630 
037632 
037636 


037642 
037650 
037654 


037660 
037660 
037662 
037670 
037676 
037704 
037712 
037720 
037724 
037726 
037726 
037730 
037732 
037734 
037736 
037736 
037736 


037740 


005037 


104421 
032700 
001410 


012746 
012746 
010600 
104417 
062706 
005037 


052777 
004737 
004737 


040211 
023416 


104405 


104404 
012737 
013777 
052777 
017737 
023737 
004737 
001404 


021777 
003020 
00000 


1 
142724 
003022 
026306 


142756 


003020 
142656 
142642 
003022 
003020 





.-SBTTL TEST 4 - CTA Read/write Test. 


;*? 


; This test checks that the read/write bits of the CTA register 
; can all be set, all cleared and individually set. 


BGNTST 

CLR STAFLG i 
RFLAGS RO ; 
BIT @PNT ,RO : 
BEQ 10$ i 


PRINTF #TSHD4 


10$: CLR ITRCNT ; 
20$: BIS #RES ,@DRXSCR ; 
JSR PC,WTS00 ; 
JSR PC,WTSO00 F 
3 
; Check that all R/W bits can be set 
’ 
BGNSEG 


MOV #CTA!1777,GO00D 
MOV GOOD , AORXDBR 
BIS #FNCTO, ADRXSCR 
MOV @ORXDBR , BAD 
CMP BAD ,GOOD 

CALL INSERT 


BEQ 30$ 
ERRSOFT 400,€400,EGB 


- © © «ef oe = oe oe 


30$: ENDSEG 


: 
; Check thet all R/W bits can be cleared 
: 

BGNSEG 


MOV @CTA,GOOD ; 
MOV GOOD , BORXDBR ; 
BIS oFNCTO, @ORXSCR ; 
MOV @ORXDBR , BAD i 
CMP BAD , GOOD ; 
CALL INSERT ; 
BEQ 40$ : 


SEQ 0129 
T4:: 
flag test has been run since start 
read operator flags 
TRAP CS$RFLA 
print test headers ? 
if not, branch 
else, print test header 
MOV @TSHD4, -( SP) 
MOV @1,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04,SP 
clear iteration counter 
reset the DRX11-C 
weit for 1 millisecond 
(2*500 microseconds) 
TRAP CS$BSEG 
expected value 
set up for CTA 
trensfer to CTA 
read from CTA 
contents correct ? 
skip branch if error insert selected 
branch if CTA is OK 
print “BITS COULD NOT BE SET” 
TRAP CSERSOFT 
WORD 400 
WORD E400 
WORD EGB 


10000$: 


TRAP CS$BSEG 
expected value 
set up for CTA 
trensfer to CTA 
read from CTA 
contents correct ? 
skip branch if error insert selected 
branch if CTA is OK 


mm —“‘_ 


——— ee ee ee ee 


N10 
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TEST 4 - CTA Read/write Test. 


5007 040006 
040006 104457 
040010 000621 
040012 040256 
040014 023416 


040016 104405 


5012 040020 012701 
5013 040024 012702 
5014 040030 030201 
5015 040032 001003 


5017 040034 006302 
5018 040036 103434 
5019 040040 000773 


040042 104404 
S022 040044 012737 
5023 040052 050237 
5024 040056 013777 
5025 040064 052777 


5042 
5043 
5044 040156 045 
5045 040211 103 
5046 040256 103 
5047 040327 103 


001777 
000001 


002234 


003032 
003032 


003020 
142550 
142534 


003022 
003020 


000010 


101 





60$: 


708%: 


803: 


1008: 


ERRSOFT 401,E€401,EGB 


ENDSEG 

that each R/W bit can be set 
MOV #1777,R1 

MOV #1,R2 

BIT R2,R1 

BNE 70$ 

ASL R2 

BCS 90$ 

BR 50$ 

BGNSEG 


BIS @FNCTO, @ORXSCR 
MOV @0RXDBR , BAD 
CMP BAD , GOOD 

CALL INSERT 


80$ 
ERRSOFT 402,€402,CGB 


ENOSEG 

BR 60$ 

TST QVMODE 

BNE 100$ 

INC ITRCNT 

CMP ITRCNT, #10 
BNE 20$ 

EXIT TST 

-NLIST BEX 


SEQ 0130 


print "BITS COULD NOT BE CLEARED” 
TRAP CSERSOFT 
WORD 


. 401 
«WORD €401 
-WORD EGB 


10001$: 
TRAP CSESEG 


seve R/W bits in R1 
first bit to test in R2 
is it ea R/W bit ? 

if yes, test it 


else find next R/W bit 
if ell done, exit test 
else check if next bit is R/W 


TRAP CS$BSEG 
cleer ell R/W bits 
except for one bit 
loed into DBR 
transfer to CTA 
reed it back 
contents correct ? 
skip brench if error insert selected 
brench if CTA is OK 
print “BITS COULD NOT BE” 
TRAP CSERSOFT 
02 


-WORD 4 
-WORD £€402 
EGB 


“INDIVIDUALLY SET” 
100023: 
TRAP = CSESEG 
test next bit 


is quick verify mode selected ? 
if yes, exit test 

else, increment iteration counter 
iterations completed ? 

if not, do another iteration 


TRAP CsexIt 
WORD 110035-. 


-ASCIZ \sS28ACTA READ/WRITE TESTSN\ 

-ASCIZ \CTA READ/WRITE BITS COULD NOT BE SET\ 

-ASCIZ \CTA READ/WRITE BITS COULD NOT BE CLEARED\ 

-ASCIZ \CTA READ/WRITE BITS COULD NOT BE INDIVIDUALLY SET\ 


-LIST BEX 


} 
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| TEST 4 - CTA Read/write Test. 


5049 


5050 
5051 040412 

040412 

040412 104401 
5052 


| 
| 
| 


- EVEN 
ENDTST 


SE@ 0131 


L10035: 
TRAP CSETST 


CS 


—_ ee eee se 


Cil 
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TEST 5S - Control Table Date Test. 


005037 


104421 
032700 
001410 


012746 
012746 
010600 
104417 
062706 


005037 
052777 
004737 
004737 


012702 


010277 
052777 


104404 
012737 
013777 
052777 
017737 
023737 
004737 
001404 


104457 
000764 
041055 
023514 


104405 


104404 


012737 
013777 


003030 


001000 


020000 


142132 
000001 


030777 


030000 
003020 


142144 


142116 


003020 
142106 
142072 
003022 
003020 


003020 
142026 





SEQ 0132 
-SBTTL TEST 5S - Control Table Date Test. 
; This test checks that bits 0 to 8 of each control word can all 
; be set, all cleared, and individually set. 
BGNTST 
TS:: 
CLR STAFLG ; flag test has been run since start 
RFLAGS RO ; read operator flags 
TRAP CS$RFLA 
BIT @PNT ,RO ; print test headers ? 
BEQ 10$ ; if not, branch 
PRINTF #TSHDS ; else, print test header 
MOV #TSHDS, -( SP) 
MOV #1,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04,SP 
10$: CLR ITRCNT ; clear iteration counter 
BIS #RES , BORXSCR ; reset the DRX11-C 
JSR PC ,WTS500 ; weit for 1 millisecond 
JSR PC ,WTS00 ; (2500 microseconds) 
MOV eCTA,R2 ; start with CWR O in R2 
203: MOV R2,3DRXDBR ; set up for transfer 
BIS @FNCTO,@DRYSCR ; transfer to CTA 
; Check that all R/W bits can be set 
BGNSEG 
TRAP C$BSEG 
MOV @CWR!777,GO00D ; expected value 
MOV GOOD , BDRXDBR ; set up for CWR 
BIS @FNCTO,@DRXSCR ; transfer to CWR 
MOV @DRXDBR , BAD ; read from CWR 
CMP BAD ,GOOD ; contents correct ? 
CALL INSERT : skip branch if error insert selected 
BEQ 30$ ; branch if CWR is OK 
ERRSOFT 500,€500,ECGB ; print “BITS COULD NOT BE SET” 
TRAP CSERSOFT 
. WORD 500 
. WORD E500 
. WORD ECGB 
30$: ENDSEG 
10000$: 
TRAP CSESEG 
$ 
; Check that all R/W bits can be cleared 
3 
BGNSEG 
TRAP CSBSEG 


MOV #CWR , GOOD 
MOV GOOD , BDRXDBR 


; expected value 
; set up for CWR 


SB ee = cae owe 


Dili 
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_ TEST S - Control Table Data Test. 


5096 
5097 
5098 
5099 
5100 
$101 


052777 
017737 
023737 
004737 
001404 


104457 
000765 
041120 
023514 


104405 


012701 
012703 
030301 
001003 


006303 
103434 
000773 


104404 
012737 
050337 
013777 
052777 
017737 
023737 
004737 
001404 


104457 
000766 
041167 
023514 


104405 
000742 


005202 
020227 
103643 


005737 
001006 
005237 
023727 
001232 


000001 
142014 
003022 
026306 


000777 
000001 


030000 
003020 
003020 
000001 
141706 
003022 
026306 


022000 


002234 


003032 
003032 


142012 
003022 
003020 


003020 


141720 
141704 
003022 
003020 


000010 





40$: 


; Check 


60$: 


70$: 


80$: 


90$: 


100$: 


BIS #FNCTO, @DRXSCR 
MOV @DRXDBR , BAD 
CMP BAD ,GOOD 

CALL INSERT 

BEQ 40$ 

ERRSOFT 501,E€501,ECGB 


ENDSEG 


that each R/W bit can be set 


MOV #777,R1 

MOV #1,R3 

BIT R3,R1 

BNE 70$ 

ASL R3 

BCS 90$ 

BR S0$ 

BGNSEG 

MOV #CWR ,GOOD 
BIS R3,GO0D 

MOV GOOD , ADRXDBR 
BIS #FNCTO,@DRXSCR 
MOV @0RXDBR , BAD 
CMP BAD ,GOOD 
CALL INSERT 


BEQ 80$ 
ERRSOFT 502,E502,ECGB 


ENDSEG 

BR 60$ 

INC R2 

cmP R2,#CTA!2000 
BLO 20$ 

TST QVMODE 

BNE 100$ 

INC ITRCNT 

CMP ITRCNT, #10 
BNE 20$ 

EXIT TST 


ae ae 


transfer to CWR 
read from CWR 
contents correct ? 
skip branch if error insert selected 
branch if CWR is OK 
print "BITS COULD NOT BE CLEARED” 
TRAP CSERSOFT 


-WORD 501 
-WORD E501 
-WORD ECGB 
10001$: 
CSESEG 


save R/W bits in R1 
first bit to test in R2 
is it a R/W bit ? 

if yes, test it 


else find next R/W bit 
if all done, exit test 
else check if next bit is R/W 


TRAP C$BSEG 
clear all R/W bits 
except for one bit 
load into DBR 
transfer to CWR 
read it back 
contents correct ? 
skip branch if error insert selected 
branch if CWR is OK 
print “BITS COULD NOT BE” 
TRAP CSERSOFT 


-WORD 502 
-WORD E502 
-WORD ECGB 
"INDIVIDUALLY SET” 
10002$: 


TRAP CSESEG 
test next bit 


increment the control word number 
have we tested them all ? 
if not, test the next one 


is quick verify mode selected ? 
if yes, exit test 

else, increment iteration counter 
iterations compieted ? 

if not, do another iteration 


SEQ 0133 
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/ TEST 5 - Control Table Date Test. 


5140 
5141 
$142 
5143 
5144 
5145 
5146 
5147 
5148 
5149 


5150 


041012 104432 
041014 000234 


041016 045 
041055 103 
041120 103 
041167 103 
041250 
041250 


041250 104401 


123 
117 
117 
117 


062 
116 
116 
116 


TSHDS:: 
€500: 
E501: 
E502: 


-NLIST 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
LIST 

.EVEN 


ENDTST 


E11 


SEQ 0134 


TRAP CS$EXxIT 
-WORD 110036-. 


BEX 

/%S2SACONTROL TABLE DATA TEST#N/ 

/CONTROL WORD BITS COULD NOT BE SET/ 

/CONTROL WORD BITS COULD NOT BE CLEARED/ 

—- WORD BITS COULD NOT BE INDIVIDUALLY SET/ 


L10036: 
TRAP CSETST 


| 





Fil 
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| TEST 6 - Control Table Address Test. 


5152 
5153 
5154 


5164 041252 
041252 
5165 041252 005037 003030 
5166 041256 
041256 104421 
5167 041260 032700 001000 
5168 041264 001410 
5169 041266 
041266 012746 041734 
041272 012746 000001 
041276 010600 
041300 104417 
041302 062706 000004 


5171 041306 005037 003032 
5172 041312 052777 000040 141306 
5173 041320 004737 026106 
5174 041324 004737 026106 


5178 041330 012701 030000 
5179 041334 012702 020000 


5181 041340 010277 141270 
5182 041344 052777 000001 
5183 041352 010177 141256 
5184 041356 052777 000001 
5185 041364 005201 
5186 041366 042701 001000 
5187 041372 005202 
5188 041374 020227 021777 
5189 041400 101757 
5191 041402 012737 030000 003020 
5192 041410 012702 020000 
5193 041414 
041414 104404 
5194 041416 010277 141212 
5195 041422 052777 000001 141176 
5196 041430 012777 030000 141176 
5197 041436 017737 141172 003022 
5198 041444 023737 003022 003020 
5199 041452 004737 026306 
; 3200 041456 001404 


141254 
141242 


.SBTTL TEST 6 - Control Table Address Test. 


3 oe 


; This checks for interaction between different words of the 
control table. All 1024 control words are loaded with a modulo 
511 count. The entire control table is then read and the 


to it. To check bit 9 of the address logic the first half of the 
; control table is loaded with all zeros and the second half with 


; all ones. The table is again read to check that the data was 


; correctly written. 


BGNTST 


CLR 
RFLAGS 


BIT 
BEQ 
PRINTF 


10$; CLR 
BIS 
JSR 
JSR 


3 
; Check address 


20$: MOV 
MOV 


30$: MOV 


BIS 
MOV 


40$: BGNSEG 





STAFLG 
RO 


#PNT ,RO 
10$ 
#T SHD6 


ITRCNT 
#RES , ARXSCR 
PC,WTS00 
PC,WTSO0O 


bits 0 to 8 


#CWR ,R1 
#CTA,R2 


R2,@0RXDBR 
#FNCTO,@DRXSCR 

R1,@DRXDBR 

a ae 
1 

#1000,R1 


R2 
R2,@CTA!1777 
30$ 


#CWR , GOOD 
@CTA,R2 


R2,@D0RXDBR 
#FNCTO, @RXSCR 
#CWR , ADRXDBR 
@DRXDBR , BAD 
BAD ,GOOD 
INSERT 

50$ 


SEQ 0135 
T6:: 
; flag test has been run since start 
; read operator flags 
TRAP C$RFLA 
; print test headers ? 
; if not, branch 
; else, print test header 
MOV #TSHD6, -( SP) 
MOV #1,-(CSP) 
MOV SP ,RO 
TRAP C$PNTF 
ADD #4,SP 


= of e oe 


; 
; 
; contents of each word compared with the data which was written 
; 


cleer iteration counter 
reset the DRX11-C 

wait for 1 millisecond 
(2*500 microseconds) 


pattern for control word in Rl 
control table address in R2 


set up control table address 
transfer to CTA register 

set up pattern 

transfer to CWR 

increment the pattern 

make modulo 511 

increment the CTA 

all control words written ? 
if not, write next one 


expected pattern in GOOD 
control table address in R2 


TRAP C$BSEG 
set up control table address 
transfer to CTA register 
set up to read the CWR 
and read it 
contents correct ? 
skip branch if error insert selected 
branch if CWR is OK 


Gil 
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| TEST 6 - Control Table Address Test. 


i 
| 5201 041460 ERRSOFT 600,E600,ECGB 
041460 104457 
041462 001130 
041464 041776 
041466 023514 


5202 041470 50$: ENDSEG 

041470 

041470 104405 
5203 041472 005237 003020 INC GOOD 
5204 041476 042737 001000 003020 BIC #1000 ,GO0D 
5205 041504 005202 INC R2 
5206 041506 020227 021777 CMP R2,#CTA!1777 
5207 041512 101740 BLOS 40$ 
5208 ; 
5209 ; Check address bit 9 
5210 : 
5211 041514 012701 030000 MOV #CWR,R1 
ty 041520 012702 020000 MOV #CTA,R2 
5214 041524 010277 141104 60$: MOV R2,aDRXDBR 
5215 041530 052777 000001 141070 BIS #FNCTO,@DRXSCR 
5216 041536 010177 141072 MOV R1,@DRXDBR 
5217 041542 052777 000001 141056 BIS #FNCTO,@DRXSCR 
5218 041550 005202 INC R2 
5219 041552 020227 021000 CAP R2,#CTA!1000 
5220 041556 001002 BNE 70$ 
5221 041560 012701 030777 MOV #CWR!777,R1 
5222 041564 020227 021777 70$: CMP R2,#CTA!1777 
by 041570 101755 BLOS 60$ 
224 
5225 041572 012737 030000 003020 MOV #CWR ,GOOD 
5226 041600 012702 020000 MOV #CTA,R2 
5227 
5228 041604 80$: BGNSEG 

041604 104404 
5229 041606 010277 141022 MOV R2,@DRXDBR 
5230 041612 052777 000001 141006 BIS #FNCTO,@DRXSCR 
5231 041620 012777 030000 141006 MOV #CWR ,IDRXDBR 
5232 041626 017737 141002 003022 MOV @DRXDBR , BAD 
5233 041634 023737 003022 003020 CMP BAD ,GOOD 
5234 041642 004737 026306 CALL INSERT 
5235 041646 001404 BEQ 90$ 
5236 041650 ERRSOFT 601,€601,ECGB 


041650 104457 
041652 001131 
041654 042047 
041656 023514 


5237 041660 90$:  ENDSEG 
041660 
041660 104405 
5238 041662 005202 INC k2 
5239 041664 020227 021000 CMP R2,#CTA!1000 
5240 041670 001003 BNE 100$ 
5241 041672 012737 030777 003020 MOV #CWR!777,GOOD 
5242 041700 020227 021777 100$: CMP R2,#CTA!1777 
5243 041704 101737 BLOS  80$ 
, 5244 


SEQ 0136 


print "CTA ERROR, BITS 0-8" 
TRAP 


C$ERSOFT 
-WORD 600 
-WORD E600 
-WORD ECGB 
10000$: 
TRAP CSESEG 


increment the pattern 

make modulo 511 

increment the CTA 

all control words checked ? 
if not, check the next one 


pattern 0 for control word in R1 
control table address in R2 


set up control table address 
transfer to CTA register 

set up pattern 

transfer to CWR 

increment the CTA 

half way through table ? 

if not, branch 

else set pattern to 777 

all control words written ? 
if not, write next one 


expected pattern in GOOD 
control table address in R2 


TRAP C$BSEG 
set up control table address 
transfer to CTA register 
set up to read the CWR 
and read it 
contents correct ? 
skip branch if error insert selected 
branch if CWR is OK 
print “CTA ERROR, BIT 9" 
TRAP CSERSOFT 


WORD 601 
WORD E601 
WORD ECGB 


10001$: 
TRAP CSESEG 

increment the CTA 
half way through table ? 
if not, branch 
else set expected pattern to 777 
all control words checked ? 
if not, check the next one 
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ee ee ee 


| TEST 6 - Control Table 


| $5245 
5246 
5247 
5248 
5249 
5250 
S251 


S252 
S253 
5254 
5255 
5256 
5257 
5258 
5259 
5260 


5261 


041706 
041712 
041714 
041720 
041726 


041730 
041730 
041732 


041734 
041776 
042047 


042116 
042116 
042116 


005737 
001006 
005237 
023727 
001200 


104432 
000164 


045 
103 
103 


104401 


Address Test. 


002234 


003032 
003032 


123 
117 
117 


000010 


062 
116 
116 


110$: 


TSHD6: : 
E600: 
E601: 


a a a ee _- 


Hit 


SEQ 0137 

TST QVMODE ; is quick verify mode selected ? 
BNE 110$ ; if yes, exit test 
INC ITRCNT ; else, increment iteration counter 
CMP ITRCNT, #10 ; iterations completed ? 
BNE 20$ ; if not, do another iteration 
EXIT TST 

TRAP CS$EXIT 

. WORD L10037-. 
-NLIST BEX 


-ASCIZ /#S2sACONTROL TABLE ADDRESS TEST#N/ 

-ASCIZ /CONTROL TABLE ADDRESSING ERROR, BITS 0-8/ 
-ASCIZ /CONTROL TABLE ADDRESSING ERROR, BIT 9/ 
-LIST BEX 

. EVEN 


ENDTST 
L10037: 
TRAP CSETST 


‘ 
I OTE LL A ee ee ee 
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A — 


tii 


SEQ 0138 


| TEST 7 - COUT and SEQ CONT L Interrupt Test. 


5263 


| §264 
5265 
5266 


5267 
5268 
5269 
5270 


042120 
042120 
042120 
042124 
042124 
042126 
042132 


005037 


104421 
032700 
001410 


012746 
012746 
010600 
104417 
062706 


005037 
052777 
004737 
004737 


012746 
012746 
013746 
012746 
104437 
062706 


104404 
005037 
005001 


012700 
104441 
012777 
052777 
012777 
052777 
052777 
042777 
052777 


005737 


003030 


001000 


042534 
000001 


000004 


003032 
000040 
026106 
026106 


000340 
032216 
002636 
000003 


000010 


002772 


.SBTTL TEST 7 - COUT and SEQ CONT L Interrupt Test. 


3¢¢ 

; This tests that the command output (COUT) signal can be set and 
that the SEQ CONT L input signal can be used to generate an 
interrupt. 


The interrupt enable bit (6) of the DRX11-C SCR register is set 
and in the AAFO1-A's ACS register SBE is set. COUT is then set 
and cleared. COUT is looped back to the SEQ CONT L input signal, 
and the trailing edge sets SBR in the ACS register. This in turn 
sets EOC and STATO in the DRX11-C SCR causirg an interrupt. 


BGNTST 
T?:: 
CLR STAFLG ; flag test has been run since start 
RFLAGS RO ; read operator flags 
TRAP C$RFLA 
BIT #PNT,RO ; print test headers ? 
BEQ 10$ ; if not, branch 
PRINTF #TSHD7 ; else, print test header 
MOV #TSHD7, -( SP) 
MOV SP,RO 
TRAP C$PNTF 
ADD #4,SP 
10$: CLR ITRCNT ; clear iteration counter 
140440 203: BIS #RES ,@DRXSCR ; reset the DRX11-C 
JSR PC,WT500 ; wait for 1 millisecond 
JSR PC,WT500 ; €2*500 microseconds) 
SETVEC DORXVEC,#INT, #PRIO7 ; set up DRX11-C vector 
MOV #PRIO7, -(SP) 
MOV #INT,-CSP) 
MOV DRXVEC,-CSP) 
TRAP C$SVEC 
ADD #10,SP 
30$: BGNSEG 
TRAP C$BSEG 
CLR INTFLG ; clear the interrupt flag 
CLR Ri ; clear a delay counter 
SETPRI #PRIOO ; drop the priority 
MOV #PRIOO,RO 
TRAP C$SPRI 
140364 MOV #ACS!SBE,@DRXDBR ; set sequence break enable 
140350 BIS #FNCTO,@DRXSCR ; transfer to ACS register 
140342 MOV #IE,@DRXSCR ; allow interrupts from DRX11-C 
140342 BIS #COUT , ADRXDBR ; set COUT 
140326 BIS #FNCTO,@DRXSCR ; write to register 
140326 BIC #COUT , ARXDBR ; and clear it again 
140312 BIS #FNCTO, @DRXSCR ; write to register 
40$: TST INTFLG ; have we had an interrupt ? 








ee ee ee 


Jil 
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042522 013700 002636 MOV DRXVET RO 


SEQ 0139 
tongs 7 - COUT and SEQ CONT L Interrupt Test. 
| 5304 042320 001002 BNE 50$ ; if yes, branch 
5305 042322 005301 DEC Ri ; have we waited long enough ? 
see 042324 001373 BNE 40$ : if not, wait longer 
5308 042326 50$: SETPRI #PRIO7 ; stop any more interrupts 
042326 012700 000340 MOV #PRIO7,RO 
042332 104441 TRAP C$SPRI 
5309 042334 005737 002772 TST INTFLG ; did we get our interrupt ? 
5310 042340 004737 026306 CALL INSERT ; skip branch if error insert selected 
5311 042344 001005 BNE 60$ ; branch if we got the interrupt 
5312 042346 ERRSOFT 700,E700,ECHK ; else print “INTERRUPT TIMEOUT” 
042346 104457 TRAP CSERSOFT 
042350 001274 . WORD 700 
042352 042606 -WORD €E€700 
042354 023404 . WORD ECHK 
5313 042356 CKLOOP ; branch to BGNSEG if loop on error set 
wae 042356 104406 TRAP C$CLP1 
5315 042360 012737 010250 003020 60$: MOV #ACS!E0C!SBR!SBE,GOOD ; get expected ACS contents 
5316 042366 017737 140242 003022 MOV @DRXDBR , BAD ; and actual contents 
5317 042374 013700 003022 MOV BAD ,RO ; get the contents into RO 
5318 042400 042700 171777 BIC #tC<UNI!CMP>,RO ; and isolate uncertain bits 
5319 042404 050037 003020 BIS RO,GOOD ; set them in GOOD if they are set 
5320 042410 023737 003022 003020 CMP BAD , GOOD ; contents correct ? 
5321 042416 004737 026306 CALL INSERT ; skip branch if error insert selected 
5322 042422 001404 BEQ 70$ ; branch if ACS is OK 
5323 042424 ERRSOFT 701,€701,EGB ; else print "ACS INCORRECT” 
042424 104457 TRAP CSERSOFT 
042426 001275 . WORD 701 
042430 042654 . WORD E701 
sees 042432 023416 -WORD EGB 
5325 042434 012737 100700 003020 70$: MOV #ATT!STATO!RDY!IE,GOOD ; get expected SCR contents 
5326 042442 017737 140160 003022 MOV @DRXSCR,BAD ; and actual contents 
5327 042450 023737 003022 003020 CMP BAD ,GOOD ; contents correct ? 
5328 042456 004737 026306 CALL INSERT ; skip branch if error insert selected 
5329 042462 001405 BEQ 80$ ; branch if SCR is OK 
5330 042464 ERRSOFT 702,E€702,EGB ; else print "SCR INCORRECT” 
042464 104457 TRAP CSERSOFT 
042466 001276 . WORD 702 
042470 042727 -WORD E702 
042472 023416 -WORD €EGB 
5331 042474 CKLOOP ; branch to BGNSEG if loop on error set 
sone 042474 104406 TRAP CS$CLP1 
5333 042476 80$: ENDSEG 
042476 10000$: 
— 042476 104405 TRAP CSESEG 
5335 042500 005737 002234 TST QVMODE ; is quick verify mode selected ? 
5336 042504 001006 BNE 90$ i; if yes, exit test 
5337 042506 005237 003032 INC ITRCNT ; else, increment iteration counter 
5338 042512 023727 003032 000010 CMP ITRCNT, #10 ; iterations completed ? 
teed 042520 001217 BNE 20$ ; if not, do another iteration 
5341 042522 90$: CLRVEC DRXVEC ; restore the DRS trap catcher 
i 





Se ——— ee 


KL 
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| TEST 7 - COUT and SEQ CONT L Interrupt Test. 


042526 


5342 042530 

042530 
042532 
{ 


5343 

5344 

5345 042534 

5346 042606 

5347 042654 

5348 042727 

5349 

5350 

5351 

5352 043012 
043012 
043012 

5353 


104436 


104432 
000260 


104401 


062 
124 
123 
130 


TSHD7:: 
E700: 
E701: 
E702: 


EXIT TST 


-NLIST 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-LIST 
- EVEN 


ENDTST 


TRAP 
TRAP 
. WORD 
BEX 
7%S28ACOUT AND SEQ CONT L INTERRUPT TEST#SN/ 


ZINTERRUPT TIMEOUT AFTER COUT LOOPBACK/ 

7ACS REGISTER INCORRECT AFTER COUT LOOPBACK/ 
/ORX11-C SCR REGISTER INCORRECT AFTER COUT LOOPBACK/ 
BEX 


L10040: 
RAP 


CsCVvEC 
CSEXIT 


L10040-. 


CSETST 


SEQ 0140 


HARDWARE TESTS 
. TEST 8 - DMA to 


| 5355 
| 5356 
5357 
5358 
5359 
5360 
5361 
5362 
5363 043014 
043014 
5364 043014 
5365 043020 
043020 
5366 043022 
5367 043026 
5368 043030 
043030 
043034 
043040 
043042 
043044 


5370 043050 
5371 043054 
5372 043062 
5373 043066 


—— ee eee ee em ee a 


% © | 


MACRO VOS.00 Friday 01-Feb-85 08:58 Page 80 


SEQ 0141 
Registers Test. 
.SBTTL TEST 8 - DMA to Registers Test. 
;*¢ 
; This test performs a DMA write to the ACS and CTA registers. The 
; register contents are then read back under program control and 
; checked. 
— 
BGNTST ve 
005037 003030 CLR STAFLG ; flag test has been run since start 
RFLAGS RO ; read operator flags 
104421 TRAP CSRFLA 
032700 001000 BIT #PNT,RO ; print test headers ? 
001410 BEQ 10$ ; if not, branch 
PRINTF #TSHD8 ; else, print test header 
012746 043452 MOV @TSHD8, - (SP) 
012746 000001 MOV #1,-(SP) 
010600 MOV SP ,RO 
104417 TRAP C$PNTF 
062706 000004 ADD 04,SP 
005037 003032 10$: CLR ITRCNT ; clear iteration counter 
052777 000040 137544 BIS #RES , @DRXSCR ; reset the DRX11-C 
004737 026106 JSR PC,WT500 ; wait for 1 millisecond 
004737 026106 JSR PC,WTS00 ; €2#500 microseconds) 
012737 010416 003040 MOV #ACS!416,BUFOUT ; set up 2 words for transfer 
012737 020525 003042 MOV #CTA!S25,BUFOUT+2 ; to the ACS and CTA registers 
SETVEC DRXVEC,#INT, #PRIO7 ; set up DRX11-C vector 
012746 000340 MOV #PRIO7, -( SP) 
012746 032216 MOV @INT,-(CSP) 
013746 002636 MOV DRXVEC, -( SP) 
012746 000003 MOV 03,-(SP) 
104437 TRAP C$SVEC 
062706 000010 ADD #10,SP 
208: BGNSEG 
104404 TRAP C$BSEG 
SETPRI #PRIOO ; drop the priority 
012700 000000 MOV @PRIOO,RO 
104441 TRAP C$SPRI 
005037 002772 CLR INTFLG ; clear the interrupt flag 
005001 - CLR R1 ; clear ea delay counter 
012777 000000 137450 MOV #BAR1,@ORXCOR ; address BARI 
012777 003040 137444 MOV #BUF OUT , ADRXADR ; put buffer address in BARI 
012777 000400 137434 MOV #WCR1,@DRXCOR ; set up WCRI 
012777 177776 137430 MOV #-2,3DRXADR ; to transfer 2 words 
012777 020000 137420 MOV #RUN , BDRXCOR ; stert the DMA 
012777 000100 137410 MOV #IE,@0RXSCR ; enable DRX11-C interrupts 
005737 002772 30$: TST INTFLG ; have we hed an interrupt ? 
001002 BNE 40$ ; if yes, branch 
005301 DEC R1 ; have we waited long enough ? 
001373 BNE 30$ ; if not, wait longer 





HARDWARE TESTS 
TEST 8 - DMA to 
$396 043230 
043230 

043234 

5397 043236 
5398 043242 
5399 043246 
5400 043250 
043250 

043252 

043254 

043256 


5401 043260 
043260 


5403 043262 
5404 043270 
$405 043276 
5406 043304 
5407 043310 
5408 043314 
5409 043320 
5410 043326 
5411 043332 
5412 043334 
043334 
043336 
043340 
043342 
5413 043344 
043344 


5415 043346 
5416 043354 
5417 043362 
5418 043370 
5419 043376 
5420 043402 
5421 043404 
043404 
043406 
043410 
043412 


Mii 
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Registers Test. 


000340 


002772 
026306 


012700 
104441 
005737 
004737 
001005 


104457 
001440 
043507 
023404 


104406 


013737 
012777 
017737 
013700 
042700 
050037 
023737 
004737 
001405 


104457 
001441 
043553 
023416 


104406 


013737 
012777 
017737 137246 
023737 
004737 
001404 


104457 
001442 
043611 
023416 


003040 
010000 
137332 
003022 
171777 
003020 
003022 
026306 


104405 


005737 
001006 
005237 
023727 
001236 


002234 


003032 
003032 


013700 
104436 


002636 


003020 50$: 


137336 
003022 


003020 


003020 
137252 
003022 
003020 


000010 


40$: 


60$: 


70$: 


80$: 


SETPRI 


TST 
CALL 


BNE 
ERRSOFT 


CKLOOP 


ERRSOFT 


ENDSEG 


CLRVEC 


EXIT TST 


#PRIO7 


INTFLG 
INSERT 


5S0$ 
800 ,E800, ECHK 


BUF OUT , GOOD 
#ACS , BORXDOBR 
@DRXDBR , BAD 

BAD ,RO 
@tC<UNI!CMP>,RO 


6 
801,€801,EGB 


BUF OUT+2,G00D 
#CTA,@ORXDBR 


802 ,E802,EGB 


QVMODE 

80$ 

ITRCNT 
ITRCNT, #10 
20% 


DRXVEC 


— © = @ «+ oe oF — of © © ©: © oe os oe oe 


stop any more interrupts 
MOV #PRIO7,RO 
TRAP C$SPRI 
did we get the interrupt ? 
skip brancn if error insert selected 
branch if we t the interrupt 
else print "NO INTERRUPT AFTER DMA” 


TRAP CSERSOFT 
-WORD 800 
-WORD £800 
-WORD ECHK 


branch to BGNSEG if loop on error set 
TRAP CSCLPi 


get expected ACS contents 

address the ACS register 

and get the actual contents 

get the contents into RO 

and isolate uncertain bits 

set them in GOOD if they ere set 
contents correct ? 

skip branch if error insert selected 
branch if ACS is OK 

else print “ACS INCORRECT” 


TRAP CSERSOFT 
-WORD 801 
-WORD €801 
WORD €EGB 


branch to BGNSEG if loop on error set 
TRAP —- C$CLP 


get expected CTA contents 
address the CTA 
and get the actual contents 
contents correct ? 
skip branch if error insert selected 
branch if CTA is OK 
else print "CTA INCORRECT” 
TRAP CSERSOFT 
802 


. WORD 

-WORD E802 

-WORD EGB 
10000$: 

TRAP CSESEG 


is quick verify mode selected ? 
if yes, exit test 

else, increment iteration counter 
iterations completed ? 

if not, do another iteration 


restore the DRS trap catcher 
MOV DRXVEC RO 
TRAP CSsCvECc 


_ TEST 8 - DMA to Registers Test. 


' 
' 
‘ 
! 
\ 
' 
} 


Nil 
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043446 
043450 


043452 
043507 
043553 
043611 


043650 
043650 
043650 


104432 

000200 
045 123 
116 117 
101 103 
103 124 

104401 


TSHDS: : 
E800: 
E801: 
E802: 


-NLIST 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-LIST 

-EVEN 


ENDTST 


BEX 
/#S28ADMA TO REGISTERS TESTSN/ 
/NO INTERRUPT AFTER DMA TO REGISTERS/ 
ZACS INCORRECT AFTER DMA WRITE/ 
Ay INCORRECT AFTER OMA WRITE/ 
x 


TRAP CSExIT 
«WORD 110041-. 


L10041; 
TRAP CsETST 


SEQ 0143 


—_—_—eeeeeee-—“‘“‘_— - 





a ee 


Bie 
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: SEQ 0144 
| TEST 9 - DMA to Control Table Test. 2 
4 
| 5445 .SBTTL TEST 9 - DMA to Control Table Test. — 
5446 
5447 jee 
5448 ; This test performs a single block DMA to all 1024 words of the 
5449 ; control table. The control table contents are then read back 
5450 ; under program control and checked. 
5451 3-- 
5452 
5453 043652 BGNTST 
043652 T9:: 
5454 043652 005037 003030 CLR STAFLG ; flag test has been run since start 
5455 043656 RFLAGS RO ; read operator flags 
043656 104421 TRAP CS$RFLA 
5456 043660 032700 001000 BIT @PNT ,RO ; print test headers ? 
5457 033664 001410 BEQ 10$ ; if not, branch 
5458 043666 PRINTF #@TSHD9 ; else, print test header 
043666 012746 044310 MOV @TSHD9, -( SP) 
043672 012746 000001 7 MOV #1,-(SP) 
043676 010600 MOV SP ,RO 
043700 104417 TRAP CSPNTF 
seue 043702 062706 000004 ADD #4 ,SP 
5460 043706 005037 003032 10$: CLR ITee. ; clear iteration counter 
5461 043712 052777 000040 136706 BIS PRES , BDRXSCR ; reset the DRX11-C 
5462 043720 004737 026106 JSR PC,WTS00 ; weit for 1 millisecond 
5463 043724 004737 026106 JSR PC,WTS00 ; (2500 microseconds) 
5465 ; Set up the DMA output buffer 
5466 3 
5467 043730 012701 020000 MOV OCTA,R1 ; start with control word 0 
5468 043734 012702 030000 MOV OCWR ,R2 ; initielize pattern for control word 
5469 043740 012703 003040 MOV OBUF OUT ,R3 ; set up DMA buffer 
5470 
5471 043744 010123 203: MOV R1,(R3)- ; put e control word address in buffer 
5472 043746 010223 MOV R2,(R3)- :; follow it with some deta 
5473 043750 005202 INC R2 ; increment the date pattern 
5474 043752 042702 001000 BIC #1000 ,R2 ; prevent overflow to bit 9 
5475 043756 00520: INC R1 + go to next control word 
5476 043760 020127 021777 CMP R1,@CTA!1777 ; ell set up ? 
5477 043764 101767 BLOS 20$ ; if not, do some more 
5478 
5479 043766 SETVE® ORXVEC,@IN7, OPRIO7 ; set up DRX11-C vector 
043766 012746 000340 MOV @PRIO7, -(SP) 
043772 012746 032216 MOV @INT, -(SP) 
043776 013746 002636 MOV DRXVEC, -( SP) 
| 044002 012746 000003 MOV @3,-(SP) 
044006 104437 TRAP CsSVEC 
| aaa 044010 062706 000010 ADD #10,SP 
' 5481 044014 30$: BGNSEG 
044014 104404 TRAP CSBSEG 
5482 044016 SETPRI oPRIOO ; drop the priority 
| 044016 012700 000000 MOV @PRIOO,RO 
044022 104441 TRAP = C$SPRI 
, $483 044024 005037 002772 CLR INTFLG ; clear the interrupt flag 
5484 044030 005001 CLR R1 ; clear a delay counter 
5485 044032 012777 000000 136570 MOV #BAR1, IDRXCOR ; address BAR] 


oe ee ee ee - + 


HARDWARE TESTS 


TEST 9 - DMA to 


5486 044040 
044046 
5488 044054 
5489 044062 
5490 044070 


5492 044076 
5493 044102 
5494 044104 
5495 044106 


Cle 
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Control Teble Test. 


012777 
012777 
012777 
012777 
012777 


005737 
001002 
005301 
001373 


012700 
104441 
005737 
004737 
001004 


104457 
001604 
044351 
023404 


104406 


012737 
012702 
010277 
052777 
012777 
017737 
023737 
004737 
001404 


104457 
001605 
044421 
023514 


104406 


005237 
042737 
005202 
020227 
101741 


104405 


005737 
001006 


000340 


002772 
026306 


003020 
001000 


021777 


002234 


136564 
136554 
136550 
136540 
136530 


003020 


40$: 


; Check 


50s: 


60$: 


3 
; Check 


70$: 


80$: 


MOV OBUF OUT , BDRXADR 
MOV @WCR1, BORXCOR 
MOV #-2048. , IRXADR 
MOV @RUN , BORXCOR 
MOV #IE ,@ORXSCR 

TST INTFLG 

BNE 50$ 

DEC R1 

BNE 40$ 


for interrupt 

SETPRI #PRIO7 

TST INTFLG 

CALL INSERT 

BNE 60$ 

ERRSOFT 900,E900,ECHK 


CKLOOP 


the control table 


MOV @CWR ,GOOD 

MOV @CTA,R2 

MOV R2,@0RXDBR 
BIS @FNCTO,@ORXSCR 
MOV @CWR , ORXDBR 
MOV @0RXDBR , BAD 
cmp BAD ,GOOD 

CALL INSERT 

BEQ 80$ 

ERRSOFT 901,€901,ECGB 
CKLOOP 

INC GOOD 

BIC #1000 ,G00D 
INC R2 

CMP R2,@CTA!1777 
BLOS 70$ 

ENDSEG 

TST QVMODE 

BNE 90$ 


put buffer address in BARI 
set up WCR1 
to transfer 2048 words 
eneble ORX11-C DMA's 
enable interrupts 
have we had an interrupt ? 
if yes, branch 
have we waited long enough ? 
if not, wait longer 
stop any more interrupts 
MOV #PRIO7,RO 
TRAP C$SPRI 
did we get our interrupt ? 
skip branch if error insert selected 
branch if we got the interrupt 
else print "NOG INTERRUPT AFTER DMA” 
TRAP CSERSOFT 
. WORD 900 
. WORD E900 
. WORD ECHK 
branch to BGNSEG if loop on error set 
TRAP CS$CLP1 
expected pattern in GOOD 
control table address in R2 
set up control teble address 
trensfer to CTA register 
set up to read the CWR 
and read it 
contents correct ? 
skip branch if error insert selected 
branch if CWR is OK 
print “CONTROL WORD INCORRECT” 
TRAP CSERSOFT 
. WORD 901 
. WORD £901 
. WORD ECGB 
branch to BGNSEG if loop on error set 
TRAP CSCLPl 
increment the pattern 
make modulo 511 
increment the CTA 
ell control words checked ? 
if not, check the next one .- 
10000$: 
TRAP CSESEG 


is quick verify mode selected ? 
if yes, exit test 


SEQ 0145 


! 


HARDWARE TESTS 
TEST 9 - DMA to 


$529 
5530 
5531 
5532 
$533 


5534 


S535 
5536 
5537 
5538 
5539 
5540 
5541 
5542 
5543 


5544 


044262 
044266 
044274 


044276 
044276 
044302 
044304 
044304 
044306 


044310 
044351 
044421 


044470 
044470 
044470 


—— ee we wee we 


Die 
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Control Table Test. 


005237 
023727 
001247 


013700 
104436 
104432 
000162 


045 
116 
103 


104401 


003032 
003032 000010 


002636 
123 062 
117 040 
ar 6, 6M 


90$; 


TSHD9: : 
E900: 
E901: 


INC 
CMP 
BNE 


CLRVEC 


EXIT TST 


-NLIST 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-LIST 
- EVEN 


ENDTST 


SEQ 0146 
ITRCNT ; else, increment iteration counter 
ITRCNT, #10 ; iterations completed ? 
30$ ; if not, do another iteration 
DRXVEC ; restore the DRS trap catcher 
MO ORXVEC ,RO 

CS$CVEC 

CSEXIT 

L10042-. 
BEX 
/%S2%ADMA TO CONTROL TABLE TEST#N/ 
/NO INTERRUPT AFTER DMA TO CONTROL TABLE/ 
/CONTROL TABLE WORD INCORRECT AFTER DMA/ 
BEX 

L10042: 
CSETST 


' 
ae ee eee 


=O - - ee eee 


Ele 
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5546 


044472 
044472 
044472 
044476 
044476 
044500 
044504 
044506 
044506 
044512 
044516 
044520 
044522 


044526 
044532 
044540 
044544 


044550 
044554 
044556 


044560 
044564 
044570 
044574 


044602 
044602 
044604 
044612 
044620 
044626 
044634 
044642 
044650 
044656 


005037 


104421 
032700 
001410 


012746 
012746 
010600 
104417 
062706 


013701 
052701 
010177 
052777 


104404 
012777 
052777 
012777 
012777 
012777 
012777 
012777 
012777 


003030 


001000 


045214 
000001 
000004 
003032 
000040 
026106 
026106 


030320 


002230 


000400 
177775 


136066 


136024 


136022 
136006 
136006 
135772 
135766 
135762 
135752 
135746 





-SBTTL TEST 10 - CWR Mode O Test. 


;*¢ 


; This tests that after each conversion in mode 0, the CTA 
; register is incremented. The control table and values for output 
; are set up as follows : 


; Control word 


0 
1 


3 


Mode Channel 
(0) 0 

0 1 

0 2 

0 3 


Output voltage 


Conversions are then initiated with a DMA count of 3. After the 
; conversions are complete, the CTA register is checked to ensure 


; that it was correctly incremented. 


, 2 
; 
; 


BGNTST 


BIT 
PRINTF 


10$: CLR 
BIS 
JSR 
JSR 


JSR 

4 
T1OTAB 
MOV 
BIS 
MOV 
BIS 


208: BGNSEG 


STAFLG 
RO 


#PNT,RO 
10$ 
#TSHD10 


ITRCNT 
#RES , ARXSCR 
PC,WTSOO 
PC,WTSOO 


PC, SETTAB 


CTIME ,R1 
#PCR,R1 
R1,@0RXDBR 
#FNCTO,@DRXSCR 


#CTA,@DRXDBR 
#FNCTO,@DRXSCR 
#ACS!GO,a@D0RXDBR 
@FNCTO, @DRXSCR 
#BAR1,@0RXCOR 
#BUF OUT , BRXADR 
#WCR1,@ORXCOR 
#-3,@D0RXADR 


-- = =. oF © of oe oF 


T10:: 
flag test has been run since start 
read operator flags 
TRAP C$RFLA 


print test headers ? 
if not, branch 
else, print test header 


MOV 

MOV #1,-(SP) 
MOV SP ,RO 
TRAP CS$PNTF 
ADD #4,SP 


clear iteration counter 
reset the DRX11-C 

wait for 1 millisecond 
(2*500 microseconds) 


set up control table and data 
for 4 control words 
using teble at TIOTAB 


get the selected conversion time 
address the PCR 

and enter the conversion time 
transfer to PCR 


TRAP 
reset the CTA register 
back to control word 0 
set up to start the conversions 
enable conversions and clear the SCR 
multiplex to BARI 
set up DMA address 
now select WCR1 
to DMA 3 words 


C$BSEG 


SEQ 0147 


#TSHD10,-(CSP) 


Fie 
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! 


; TEST 10 


5595 044664 


5597 044672 
5598 044676 
5599 044700 
5600 044704 
5601 044706 
5602 044712 


5604 044714 
S605 044716 


012777 


013701 
005002 


005701 
001404 
005301 
004737 
000772 
005702 
001402 
005302 
000770 


012737 
017737 
023737 
004737 
001404 


104457 
001750 
045243 
023416 


104406 


012737 
012777 
017737 
013700 
042700 
050037 
023737 
004737 
001405 


104457 
001751 
045322 
023416 


104406 


012737 
012777 
017737 
023737 
004737 
001404 


104457 


- CWR Mode 0 Test. 


020000 
002230 
027776 
030072 


026114 


100600 
135654 
003022 
026306 


010000 
010000 
135612 
003022 
171777 
003020 
003022 
026306 


135736 


003020 
003022 
003020 


003020 
135616 
003022 


003020 


003020 
135532 
003022 
003020 


30$: 
40$: 


50$: 


60$: 


70$: 


80$: 


MOV #RUN , DRXCGR 
MOV CTIME,R1 

CLR R2 

= PC,MUL 

JSR PC,DIV 

125. 

TST R1 

BEQ 50$ 

DEC R1 

JSR PC,WT25 

BR 30$ 

TST Re 

BEQ 60$ 

DEC R2 

BR 40$ 

MOV #ATT!STATO!RDY, GOOD 
MOV @DRXSCR ,BAD 
CMP BAD ,GOOD 
CALL INSERT 

BEQ 


70$ 
ERRSOFT 1000,E1000,EGB 


CKLOOP 

MOV #ACS ,GOOD 

MOV #ACS ,ADRXDBR 
MOV @DRXDBR , BAD 

MOV BAD,RO 

BIC #tC<UNI!CMP>,RO 
BIS RO,GOOD 


CMP BAD ,GOOD 
CALL INSERT 


80$ 
ERRSOFT 1001,E€1001,EGB 


MOV #CTA!3,GO0D 
MOV #CTA,@ORXDBR 
MOV @DRXDBR , BAD 
CMP BAD ,GOOD 
CALL INSERT 

BEQ 


SEQ 0148 


start the DMA 


get the conversion time 
high byte is zero 
multiply by 

the number of conversions 
divide by 

125 


loop until R1/R2 is zero 
wait 25 microseconds 


total timeout = number of conversions 
* conversion time * 2 


get expected SCR contents 

and actual contents 

are they the same ? 

skip branch if error insert selected 
branch if SCR is OK 

else print "SCR INCORRECT” 

TRAP CSERSOFT 
1000 


. WORD 
-WORD €1000 
-WORD EGB 


branch to BGNSEG if loop on error set 
TRAP C$CLP1 


get expected ACS contents 
address the ACS register 
and get the actual contents 
get the contents into RO 
and isolate uncertain bits 
set them in GOOD if they are set 
contents correct ? 
skip branch if error insert selected 
branch if ACS is OK 
else print “ACS INCORRECT” 
TRAP CSERSOFT 


-WORD 1001 
-WORD E1001 
-WORD EGB 


branch to BGNSEG if loop on error set 
TRAP CS$CLP1 


get expected CTA contents 
address the CTA 
and get the actual contents 
contents correct ? 
skip branch if error insert selected 
branch if CTA is OK 
else print “CTA INCORRECT” 
TRAP CSERSOFT 
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| TEST 10 - CWR Mode 0 Test. 


045126 
045130 
045132 


5642 045134 
045134 
045134 


5644 045136 
5645 045142 
5646 045144 
5647 045150 
5648 045156 


5650 045160 
045160 
045162 


S656 045164 
5657 045172 
5658 045200 
5659 045206 


5662 045214 
5663 045243 
5664 045322 
5665 045371 


5669 045440 
045440 
045440 


001752 
045371 
023416 


104405 


005737 
001006 
005237 
023727 
001211 


104432 
000256 


104401 


002234 


003032 
003032 


000000 
000001 
000002 
000003 


-_—--—- — 


000010 


001750 
003720 
005670 
007640 


062 
130 
123 
101 





Gle 


SEQ 0149 
. WORD 1002 
. WORD F1002 
. WORD EGB 
90$: ENDSEG 
10000$: 
CSESEG 
TST QVMODE ; is quick verify mode selected ? 
BNE 100$ ; if yes, exit test 
INC ITRCNT ; else, increment iteration counter 
CMP ITRCNT, #10 ; iterations completed ? 
BNE 20$ ; if not, do another iteration 
100$: EXIT TST 
TRAP CSEXIT 
-WORD L10043-. 
; Outputs : Mode Channel Volta 
; (mV 
TIOTAB: .WORD QO, 0, 1000. ; table for outputs 
. WORD 0, i, 2000. 
. WORD 6, a 3000. 
. WORD QO, 3, 4000. 
-NLIST BEX 


TSHD10:: .ASCIZ 
E1000: .ASCIZ 
E1001: .ASCIZ 
E1002: .ASCIZ 
.LIST 
.EVEN 


ENDTST 


/%S28ACWR MODE 0 TESTSN/ 
/DRX11-C SCR INCORRECT AFTER MODE 0 CONVERSIONS/ 
ZACS INCORRECT AFTER MODE 0 CONVERSIONS/ 
A Li INCORRECT AFTER MODE 0 CONVERSIONS/ 
x 


L10043: 
TRAP CSETST 


ee 


' 
—~ 


ee 


12 
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TEST 11 


5672 
5673 
5674 
5675 
5676 
5677 
5678 
5679 
5680 
5681 
5682 
5683 
5684 
5685 
5686 
5687 
5688 
5689 
5690 
5691 
5692 
5693 


5694 
5695 


5696 
5697 
5698 


005037 


104421 
032700 
001410 


012746 
012746 
010600 
104417 
062706 


013701 
052701 
010177 
052777 


104404 
012777 
052777 
012777 
012777 
012777 
012777 


003030 


001000 


046200 
000001 


000004 
003032 
000040 
026106 
026106 


030320 


135116 


135054 


135052 
135036 
135036 
135022 
135016 
135012 





-SBTTL TEST 11 - CWR Mode 1 Test. 


3+ 


SEQ 0150 


; This tests thet after a conversion in mode 1, the CTA register 


; up as follows : 


Control word Mode Channel Output 
0 (¢) (0) 
1 0 1 
2 0 2 
3 e) 3 
4 0 4 
5 1 5 


Conversions are then initiated with a DMA 
; conversions are complete the CTA register 
; that it was correctly reset. 


; 
: 
H 
é 
4 
; 
; 
3 
; 
; 
; 
2 
° 
; 
: 
H 


BGNTST 
CLR STAFLG i 
RFLAGS RO ; 
BIT #PNT,RO ; 
BEQ 10$ ; 
PRINTF #TSHD11 ; 
10$: CLR ITRCNT ; 
BIS #RES , @DRXSCR . 
JSR PC,WTSOO ; 
JSR PC ,WT500 ; 
JSR PC, SETTAB ; 
6 
TL TAB ; 
MOV CTIME,R1 i 
BIS #PCR,R1 : 
MOV R1, @DRXDBR : 
BIS #FNCTO, @DRXSCR ; 
20$:  BGNSEG 
MOV #CTA, @DRXDBR , 
BIS #FNCTO, @ORXSCR ; 
MOV #ACS!GO, @ORXDBR : 
MOV #FNCTO, @ORXSCR ; 
MOV #BAR1,@ORXCOR ; 
MOV #BUF OUT , ADRXADR ; 


OUP Wwhe 


is reset to 0. The control table and values for output are set 


voltage 


oooooco 


count of 6. After the 
is checked to ensure 


Till:: 


flag test has been run since start 
read operator flags 


TRAP CS$RFLA 


print test headers ? 
if not, branch 
else, print test header 


MOV #TSHD11,-(SP) 
MOV SP ,,RO 
TRAP C$PNTF 
ADD #4 ,SP 


clear iteration counter 
reset the DRX11-C 

; wait for 1 millisecond 
(2*500 microseconds) 


set up control table and date 
; for 6 control words 
using teble at T11TAB 


get the selected conversion time 
address the PCR 

and enter the conversion time 
transfer to PCR 


TRAP C$BSEG 


reset the CTA register 

back to control word 0 

set up to start the conversions 
enable conversions and clear the SCR 
multiplex to BARI 

set up DMA address 


——— ee ee 


Tie 


| HARDWARE TESTS MACRO VO5.00 Friday 01-Feb-85 08:58 Page 83-1 
- CWR Mode 1 Test. 


' TEST 11 


$721 
S722 
5723 
5724 
5725 
$726 
$727 


045620 
045626 
045634 


045642 


012777 
012777 
012777 


013701 
005002 
004737 
000006 
004737 
000175 


005701 
001404 
005301 
004737 
000772 
005702 
001402 
005302 
000770 


012737 
017737 
023737 
004737 
001404 


104457 
002114 
046227 
023416 


104406 


012737 
012777 
017737 
013700 
042700 
050037 
023737 
004737 
001405 


104457 
002115 
046305 
023416 


104406 


012737 
012777 
017737 
023737 
004737 
001404 


000400 
177772 
020000 


002230 
027776 
030072 


026114 


100600 
134704 
003022 
026306 


010000 
010000 
134642 
003022 
171777 
003020 
003022 
026306 


135002 
134776 
134766 


003020 
003022 
003020 


003020 
134646 
003022 


003020 


003020 
134562 
003022 
003020 


30$: 
40$: 


50$: 


60$: 


70$: 


80$: 


MOV 
MOV 
MOV 


MOV 
CLR 
JSR 





#WCR1,@DRXCOR 
#-6, IDRXADR 
#RUN , DDRXCOR 


CTIME,R1 


#ATT!STATO!RDY,GOOD 
@DRXSCR ,BAD 

BAD ,GOOD 

INSERT 


70$ 
1100,€1100,EGB 


#ACS ,GOOD 

#ACS ,@DRXDBR 
@DRXDBR , BAD 
BAD, RO 
#tC<UNI!CMP>,RO 
RO, GOOD 

BAD ,GOOD 

INSERT 


80% 
1101,€1101,EGB 


#CTA,GOOD 
#CTA,@ORXDBR 
@DRXDBR , BAD 
BAD , GOOD 
INSERT 

90$ 


SEQ 0151 


now select WCR1 
to DMA 6 words 
start the DMA 


get the conversion time 
high byte is zero 
multiply by 

the number of conversions 
divide by 

125 


loop until R1/R2 is zero 


wait 25 microseconds 


total timeout = number of conversions 
* conversion time * 2 


get expected SCR contents 

and actual contents 

are they the same ? 

skip branch if error insert selected 


branch if SCR is OK 

else print "SCR INCORRECT” 
TRAP CSERSOFT 
. WORD 1100 
-WORD E1100 
WORD GB 


r E 
branch to BGNSEG if loop on error set 
TRAP C$CLP1l 


get expected ACS contents 

address the ACS register 

and get the actual contents 

get the contents into RO 

and isolate uncertain bits 

set them in GOOD if they are set 
contents correct ? 

skip branch if error insert selected 
branch if ACS is OK 

else print “ACS INCORRECT” 


TRAP CSERSOFT 
-WORD 1101 
-WORD €1101 
-WORD €EGB 


branch to BGNSEG if loop on error set 
TRAP C$CLPl 


get expected CTA contents 

address the CTA 

and get the actual contents 

contents correct ? 

skip branch if error insert selected 
branch if CTA is OK 


—_ 


Jle 
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| TEST 12 
5768 


046074 
046074 
046076 
046100 
046102 


046104 
046104 
046104 


046106 
046112 
046114 
046120 
046126 


046130 
046130 
046132 


046134 
046142 
046150 
046156 
046164 
046172 


046200 
046227 
046305 
046353 


046422 
046422 
046422 


104457 
002116 
046353 
023416 


104405 


005737 
001006 
005237 
023727 
001211 


104432 
000270 


000000 
000000 
000000 
000000 
000000 
000001 


104401 


002234 


003032 
003032 


000000) 
000001 
000002 
000003 
090004 
000005 


000010 


001750 
003720 
995670 
007640 
011610 
013560 


062 
130 
123 
101 


ERRSOFT 1102,E€1102,EGB ; else print "CTA INCORRECT” 
TRAP CSERSOFT 
. WORD 1102 
. WORD E1102 
. WORD EGB 
90$: ENDSEG 
10000$: 
TRAP CSESEG 
TST QVMODE ; is quick verify mode selected ? 
BNE 100$ ; if yes, exit test 
INC ITRCNT ; else, increment iteration counter 
CMP ITRCNT, #10 ; iterations completed ? 
BNE 20$ ; if not, do another iteration 


100$: EXIT TST 


; Outputs : 
; 


T11TAB: .WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


.NLIST 
TSHD11::.ASCIZ 
E1100: .ASCIZ 
E1101: .ASCIZ 
E1102: .ASCIZ 

-LIST 

.EVEN 


ENDTST 


TRAP CSExIT 
-WORD L10044-. 


Mode Channel Voltage 


(mV) 


1000. ; table for outputs 
2000. 
3000. 
4000. 
5000. 
6000. 


VIP WNrO 


/#S28ACWR MODE 1 TESTSN/ 

/DRX11-C SCR INCORRECT AFTER MODE 1 CONVERSION/ 
ZACS INCORRECT AFTER MODE 1 CONVERSION/ 

ky INCORRECT AFTER MODE 1 CONVERSION/ 


L10044: 
TRAP CSETST 


SEQ 0152 


ee ee ee 


“K12 
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| 
| 


005037 


104421 
032700 
001410 


012746 
012746 
010600 
104417 
062706 


005037 


013701 
052701 
010177 
052777 


104404 
012777 
052777 
012777 
012777 
012777 
012777 


003030 


001000 


047162 
000001 
000004 
003032 
000040 
026106 
026106 


030320 


002230 


134134 


134072 


134070 
134054 
134054 
134040 
134034 
134030 





-SBTTL TEST 12 - CWR Mode 2 Test. 


3+ 


‘ 
3 
: 
; 
: 
; 
H 
j 
; 
; 
; 
: 
: 
; 
: 
; 
; 


s—- 


10$; 


20$: 


; Control word 


UPWNMrO 


BGNTST 


BIT 
PRINTF 


Mode Channel 
0 0 

0 1 

2 1 

2 1 

2 1 

1 2 


STAFLG 
RO 


#PNT ,RO 
10$ 
#TSHD12 


ITRCNT 
#RES , BRXSCR 
PC,WTSOO 
PC,WTSOO 


PC, SETTAB 


CTIME ,R1 
#PCR,R1 
R1,@DRXDBR 
#FNCTO, @ORXSCR 


#CTA, BDRXDBR 
#FNCTO, @ORXSCR 
#ACS!GO,@D0RXDBR 
@FNCTO,@DORXSCR 
#BAR1,@DRXCOR 
#BUF OUT , ARXADR 


SEQ 0153 


; This tests that dummy control table loads can be made by using 
; mode 2. The control table and values for output are set up as 
follows : 


Output voltage 


Wh MM hr 
oooooo 


; The SCR interrupt enable bit is set and the DMA is started with 
; the DRX11-C WCR loaded for 3 DMA's. Conversions are then 
initiated and the program waits for the conversions to complete. 


Tile:: 
flag test has been run since start 
read operator flags 
TRAP CS$RFLA 


print test headers ? 
if not, branch 
else, print test header 


MOV #TSHD12, -(SP) 
MOV #1,-(CSP) 

MOV SP ,RO 

TRAP CS$PNTF 

ADD #4,SP 


clear iteration counter 
reset the DRX11-C 

wait for 1 millisecond 
(2*500 microseconds) 


set up control table and data 
for 6 control words 
using table at T12TAB 


get the selected conversion time 
address the PCR 

and enter the conversion time 
transfer to PCR 


TRAP 
reset the CTA register 
back to control word 0 
set up to start the conversions 
enable conversions and clear the SCR 
multiplex to BARI 
set up DMA address 


C$BSEG 





Lie 
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5851 
5852 
5853 
5854 
5855 
5856 
5857 
5858 
5859 
5860 
5861 
5862 
5863 
5864 
5865 
5866 
5867 
5868 
5869 
5870 


046602 
046610 
046616 


046624 
046630 
046632 
046636 
046640 
046644 


046646 
046650 
046652 
046654 
046660 
046662 
046664 
046666 
046670 


046672 
046700 
046706 
046714 
046720 
046722 
046722 
046724 
046726 
046730 
046732 
046732 


046734 
046742 
046750 
046756 
046762 
046766 
046772 
047000 
047004 
047006 
047006 
047010 
047012 
047014 
047016 
047016 


047020 
047026 
047034 
047042 
047050 
047054 


012777 
012777 
012777 


013701 
005002 
004737 
000006 
004737 
000175 


005701 
001404 
005301 
004737 
000772 
005702 
001402 
005302 
000770 


012737 
017737 
023737 
004737 
001404 


104457 
002260 
047211 
023416 


104406 


012737 
012777 
017737 
013700 
042700 
050037 
023737 
004737 
001405 


104457 
002261 
047270 
023416 


104406 


012737 
012777 
017737 
023737 
004737 
001404 


000400 
177775 
020000 


002230 
027776 
030072 


026114 


100600 
133722 
003022 
026306 


©10000 
010000 
133660 
003022 
171777 
003020 
003022 
026306 


020000 
020000 
133574 
003022 
026306 


134020 
134014 
134004 


003020 
003022 
003020 


003020 
133664 
003022 


003020 


003020 
133600 
003022 
003020 


30$: 
40$: 


50$: 


60$: 


70$: 


80$: 


MOV 
MOV 
MOV 


MOV 
CLR 
JSR 





#WCR1,ADRXCOR 
#-3,@D0RXADR 
#RUN , BORXCOR 


CTIME,R1 
R2 
PC,MUL 
PC,DIV 


#ATT!STATO!RDY ,GOOD 
@DRXSCR ,BAD 
BAD , GOOD 

INSERT 

70$ 

1200,E1200,EGB 


#ACS ,GOOD 
#ACS , @ORXDBR 
@DRXDBR , BAD 

BAD ,RO 
#tC<UNI!CMP> ,RO 
RO,GOOD 


1201,€1201,E€GB8 


now select WCR1 
to DMA 3 words 
start the DMA 


get the conversion time 
hi Syte is zero 
multiply by 

the number of conversions 
divide by 

125 


loop until R1/R2 is zero 


wait 25 microseconds 


totel timeout = number of conversions 
* conversion time * 2 


get expected SCR contents 

and actual contents 

are they the same ? 

skip branch if error insert selected 


branch if SCR is OK 
else print "SCR INCORRECT” 
TRAP CSERSOFT 
«WORD 1200 
. WORD E1200 
. WORD EGB 
branch to BGNSEG if loop on error set 
TRAP CS#CLP1 


get expected ACS contents 

address the ACS register 

and get the actuel contents 

get the contents into RO 

anc isolate uncertain bits 

set them in GOOD if they are set 
contents correct ? 

skip branch if error insert selected 


branch if ACS is OK 

else print "ACS INCORRECT” 
TRAP CSERSOFT 
. WORD 1201 
-WORD €1201 
WORD €EGB 


TRAP CsCcLPl 


get expected CTA contents 

address the CTA 

and get the actual contents 

contents correct ? 

skip branch if error insert selected 
branch if CTA is OK 


SEQ 0154 


— ee ee ee wee 


Mie 
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TEST 12 


5898 


047056 
047056 
047060 
047062 
047064 


047066 
047066 
047066 


047070 
047074 
047076 
047102 
047110 


047112 
047112 
047114 


047116 
047124 
047132 
047140 
047146 
047154 


047162 
047211 
047270 
047336 


047404 
047404 
047404 


104457 
002262 
047336 
023416 


104401 


002234 


003032 
003032 


000010 


ERRSOFT 1202,E£1202,EGB 


ee ee = - - . 


else print "CTA INCORRECT” 
TRAP CSERSOFT 
. WORD 1202 
. WORD E1202 
. WORD EGB 


10000$: 
TRAP CSESEG 


is quick verify mode selected ? 
if yes, exit test 

else, increment iteration counter 
iterations completed ? 

if not, do another iteration 


TRAP CSsExIT 
-WORD L10045-. 


table for outputs 


> not used 
/ 


-ASCIZ /ORX11-C SCR INCORRECT AFTER MODE 2 CONVERSIONS/ 


90$: ENDSEG 
TST QVMODE 
BNE 100$ 
INC ITRCNT 
CMP ITRCNT, #10 
BNE 20$ 
100$: EXIT TST 
; Outputs : Mode Channel as = 
3 (mV 
T12TAB: .WORD oO, 0, 1000. 
. WORD QO, a. 2000. 
. WORD ae 1 3000. 
. WORD 2. he 0 
. WORD ° ae 0 
. WORD * 2. ie) 
-NLIST BEX 
hgh ars 2 /#S28ACWR MODE 2 TESTSN/ 
£1201 .ASCIZ /ACS INCORRECT AFTER MODE 2 DMA OUTPUT/ 
E1202 -ASCIZ /CTA INCORRECT AFTER MODE 2 DMA OQUTPUT/ 


-LIST BEX 


L10045: 
TRAP CseTsT 


am e—e—i‘_ 


SEQ 0155 


i 


Nie 
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005037 


104421 
032700 
001410 


012746 
012746 
010600 
104417 
062706 


005037 
052777 
004737 
004737 


004737 
000004 
050100 


013701 
052701 
010177 
052777 


104404 
012777 
052777 
012777 
012777 
012777 
012777 


003030 


001000 


050130 
000001 


133152 


133110 





+ died 


108: 


Control word 


0 
1 
2 
3 


BGNTST 


CLR 
RFLAGS 


BIT 
BEQ 
PRINTF 


ere set up as follows : 


thet this occurred. 


SEQ 0156 
-SBTTL TEST 13 - CWR Mode 3, External Clock and SEQ CONT Test. 
This tests that the SEQ CONT signal can initiate and reinitiate 
conversions in mode 3. The control table and values for output 
Mode Channel Output voltage 
3 0 0.0 
0 0 1.0 
3 0 1.0 
1 1 2.0 
The SCR interrupt enable bit is set and the DMA is sterted with 
the DRX11-C WCR loaded for 2 DMA's. The RATE CLK OUT signal is 
connected to the SEQ CONT input vie the test connector and so 
triggers the conversions. The CTA register is checked to ensure 
T13:: 
STAFLG ; flag test hes been run since start 
RO :; reed operator flags 
TRAP CS$RFLA 
@PNT ,RO ; print test heeders ? 
10$ ; if not, branch 
@TSHD13 ; else, print test heeder 
MOV @TSHD13,-( SP) 
MOV #1,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04,SP 
ITRCNT ; clear iteration counter 
@RES , @ORXSCR ; reset the DORX11-C 
PC ,WTS00 ; weit for 1 millisecond 
PC,WTSOO0 ; €2e500 microseconds) 
PC, SETTAB ; set up control teble and dete 
; for 4 control words 
; using teble et TISTAB 
CTIME ,R1 s get the selected conversion time 
OPCR,R1 ; eddress the PCR 
R1,@O0RXDBR ; and enter the conversion time 
OFNCTO, @DRXSCR ; trensfer to PCR 
TRAP C$8B8SEG 
OCTA, @ORXDBR s reset the CTA register 
OFNCTO, @DRXSCR ; beck to control word 0 
@ACS!GO, @ORXDBR ; set up to stert the conversions 
OFNCTO, @DRXSCR s eneble conversions and cleer the SCR 
@BAR1 , BORXCOR :; multiplex to BARI 
OBUF OUT , SORXADR ; set up DMA eddress 





a ee ee ee 


| 
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5981 047564 
5982 047572 
5983 047600 


5985S 047606 
5986 047612 
5987 047614 
5988 047620 
5989 047622 
5990 047626 


012777 
012777 
012777 


013701 


012737 
017737 
023737 
004737 
001404 


104457 
002424 
050214 
023416 


104406 


012737 
012777 
017737 
013700 
042700 
050037 
023737 
004737 
001405 


104457 
002425 
050275 
023416 


104406 


012737 
012777 
017737 
023737 
004737 
001404 


000400 
177776 
020000 


002230 
027776 
030072 


026114 


100600 
132740 
003022 
026306 


910000 
010000 
132676 
003022 
371777 
003020 
003022 
026306 


020000 
020000 
132612 
003022 
026306 





Clock and SEQ CONT Test. 


133036 
133032 
133022 


003020 
003022 
003020 


003020 
132702 
003022 


003020 


003020 
132616 
093022 
003020 


30$: 


40$: 


50$: 


60$: 


70$: 





Bis 


@WCR1 , BORXCOR 
@-2,@0RXADR 
RUN , BORXCOR 


CTIME ,R1 
R2 
PC, MUL 


PC,OIV 


@ATT!STATO!RDY,GOOD. 


@ORXSCR ,BAD 
BAD , GOOD 
INSERT 

70$ 
1300,£1300,EGB 


#ACS ,GOOD 

@ACS ,@ORXDBR 
@DRXDBR . BAD 

BAD ,RO 
@tC<UNI!CMP>,RO 


80$ 
1301,€1301,E€G8 


@CTA,GOOD 
@CTA,@ORXDBR 
@0RXDBR , BAD 
BAD ,GOO0D 
INSERT 

90$ 


SEQ 0157 


now select WCRI 
to DMA 2 words 
stert the DMA 


get the conversion time 
high byte is zero 
multiply by 

the number of conversions 
divide by 

125 


loop until R1/R2 is zero 


wait 25 microseconds 


totel timeout = number of conversions 
* conversion time * 2 


get expected SCR contents 

and actuel contents 

ere they the same ? 

skip branch if error insert selected 
branch if SCR is OK 

else print "SCR INCORRECT” 


TRAP CSERSOFT 

. WORD 1300 

. WORD E1300 

. WORD EGB 
branch to BGNSEG if loop on error set 

TRAP CS$CLPi 


get expected ACS contents 

address the ACS register 

and get the actual contents 

get the contents into RO 

and isolate uncertain bits 

set them in GOOD if they are set 
contents correct ? 

skip branch if error insert selected 
brench if ACS is OK 

else print “ACS INCORRECT” 


TRAP CSERSOFT 

. WORD 1301 

. WORD E1301 

. WORD EGB 
branch to BGNSEG if loop on error set 

TRAP CSCLPl 


get expected CTA contents 

address the CTA 

and get the actual contents 
contents correct ? 

skip branch if error insert selecteo 
branch if CTA is OK 


i 


bio 
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104457 
002426 
050346 
023416 


104405 


005737 
001006 
005237 
023727 
001211 


104432 
000322 


104401 


002234 


003032 
003032 


000010 


ERRSOFT 1302,€1302,EGB 


CSERSOFT 
-WORD 1302 
-WORD £1302 
-WORD €EGB 


10000$: 
TRAP CSESEG 


is quick verify mode selected ? 
if yes, exit test 

else, increment iteration counter 
iterations completed ? 

if not, do another iteration 


TRAP CSExIT 
-WORD L10046-. 


table for outputs 


not used 


:.ASCIZ /s#S2sACWR MODE 3, EXTERNAL CLOCK AND SEQ CONT TESTSN/ 


-ASCIZ /DRX11-C SCR INCORRECT AFTER SEQ CONT CONVERSIONS/ 
-ASCIZ /ACS INCORRECT AFTER SEQ CONT CONVERSIONS/ 


90$: ENDSEG 
TST QVMODE 
BNE 100$ 
INC ITRCNT 
CMP ITRCNT, #10 
BNE 20$ 
100$: EXIT TST 
; Outputs : Mode Channel Volt 
3 (mV 
T1I3TAB: .WORD 3, Oo, 1000. 
. WORD QO, QO, 2000. 
. WORD Re oO, e 
. WORD as 3. (?) 
NLIST BEX 
TSHD13 
£1300 
E1301 
E1302 


-ASCIZ /CTA INCORRECT AFTER SEQ CONT CONVERSIONS/ 


-LIST BEX 


L10046: 
TRAP CSETST 


SE@ 0158 
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6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6068 
6069 
6070 
6071 
6072 
6073 
6074 


6075 
6076 


6077 
6078 
6079 


6080 
6081 
6082 
6083 
6084 
6085 
6086 


- Programmable Clock Test. 
-SBTTL TEST 14 - Programmable Clock Test. 
3° 
H 
; 
; 
H 
; 
; complete. 
; The 2 conversions are made 
; volts on channels 0 and 1. 
‘bees 
050422 BGNTST 
050422 
050422 005037 003030 CLR STAFLG 
050426 RFLAGS RO 
050426 104421 
050430 032700 001000 BIT #PNT,RO 
050434 001410 BEQ 10$ 
050436 PRINTF #TSHD14 
050436 012746 051252 
050442 012746 000001 
050446 010600 
050450 104417 
050452 062706 000004 
050456 005037 003032 10$: CLR ITRCNT 
050462 052777 000040 132136 BIS #RES ,@DRXSCR 
050470 004737 026106 JSR PC,WT500 
050474 004737 026106 JSR PC,WTS00 
050500 SETVEC DRXVEC,#INT, #PRIO7 
050500 012746 000340 
050504 012746 032216 
050510 013746 002636 
050514 012746 000003 
050520 104437 
050522 062706 000010 
; Set up DMA output buffer 
050526 012701 011610 MOV #5000. ,R1 
050532 005002 CLR R2 
050534 004737 026510 JSR PC,ADCON 
050540 012703 003040 MOV #BUF OUT ,R3 
050544 012704 000002 MOV #2,R4 
050550 010123 20$: MOV R1,(R3)+ 
050552 005304 DEC R4 
050554 001375 BNE 20$ 
050556 012777 047640 132050 30$: MOV #PCR!4000. , @BDRXDBR 
050564 052777 000001 132034 BIS #FNCTO,@DRXSCR 
; 


D13 


Page 86 


; Set up control table 





in mode O, 


SEQ 0159 


This tests the speed and count functionality of the programmable 
clock. The PCR is loaded with the value 4000 to give a 
conversion time of 400 microseconds. The control table is set up 
to perform 2 conversions at this rate and a check is made that 
the conversions require between 1.0 and 1.5 milliseconds to 


outputing a value of 5.0 


T14:: 
flag test has been run since start 
read operator flags 
TRAP CS$RFLA 


print test headers ? 
if not, branch 
else, print test header 


MOV #TSHD14,-(SP) 
MOV #1,-(CSP) 

MOV SP,RO 

TRAP CS$PNTF 

ADD #4 ,SP 


clear iteration counter 
reset the DRX11-C 

wait for 1 millisecond 
(2500 microseconds) 


set up DRX11-C vector 


MOV #PRIO7,-(SP) 
MOV #INT,-C(SP) 
MOV DRXVEC, -(SP) 
TRAP C$SVEC 

ADD #10,SP 


set up for voltage of 5000 millivolts 
QO microvolts in conversions 

convert to 12 bit date in Rl 

address of DMA buffer in R3 

number of words to set up 

set up the data in the buffer 

2 words set up ? 

if not, set up another 


conversion time of 400 microseconds 
transfer to PCR 


+e 
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6104 
6105 
6106 
6107 
6108 
6109 
6110 
6111 
6112 
6113 
6114 
6115 
6116 
6117 
6118 


6119 
6120 
6121 


6122 
6123 
6124 
6125 
6126 
612 

6128 
6129 
613) 
6131 
6132 
6133 
6134 
6135 
6136 
6137 
6138 
6139 


6140 


6141 
6142 
6143 


6144 
6145 
6146 
6147 
6148 


050572 
050576 
050602 
050606 
050612 
050620 
050624 
050632 
050634 
050636 
050640 


050744 


050752 
050756 


051010 
051014 
051014 
051020 
051022 
051030 
051036 
051042 
051044 
051044 
051046 


TEST 14 - Programmable 


012701 
012702 
012703 
010277 
052777 
010377 
052777 
005202 
005203 
005301 
001362 


104404 
012777 
052777 


012700 
104441 
005037 
012777 
012777 
012777 
012777 
012777 
012777 
012777 
052777 


004737 
004737 
023727 
004737 
001005 


104457 
002570 
051311 
023404 


104406 
004737 


012700 
104441 
042777 
023727 
004737 
001405 


104457 
002571 


000003 
020000 
030000 
132022 
000001 
132010 
000001 


026306 


026106 
000340 
000100 


002772 
026306 


132006 
131774 


131762 
131746 


131734 
131720 
131714 
131710 
131700 
131674 
131664 
131654 


000002 


131576 
000002 


40$: 


#3,R1 

#CTA,R2 

#CWR ,R3 
R2,@DRXDBR 
#FNCTO,@DRXSCR 
R3, 9DRXDBR 
#FNCTO,@DRXSCR 


P 
; 
P 
; 
P 
: 
P 
i 
: 
3 
P 
3 
3 
a 
; 
; 
8 
. 


; Set up DRX11-C and start the DMA output 


BGNSEG 


MOV 
BIS 
SETPRI 


CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 


#CTA,@DRXDBR 
#FNCTO,@DRXSCR 
#PRIOO 


INTFLG 
#ACS!GO,@DRXDBR 
#FNCTO,@DRXSCR 
#BAR1,@DRXCOR 
#BUF OUT , ARXADR 
#WCR1,@DRXCOR 
#-2,@0RXADR 
#RUN , BLRXCOR 
#IE ,@ORXSCR 


; Wait for interrupts 


60$: 


JSR 

JSR 

CMP 
CALL 
BNE 
ERRSOFT 


CKLOOP 


JSR 
SETPRI 


BEQ 
ERRSOFT 


PC,WTSOO 
PC,WTSOO 
INTFLG, #2 
INSERT 

60$ 
1400,£1400, ECHK 


PC,WTSOO 
#PRIO7 


#IE,@ORXSCR 
INTFLG, #2 
INSERT 

70$ 
1401,E1401,ECHK 


- © oe of oF 


SEQ 0160 
set up 2 control words 
set up for CWRO 
mode 0, channel 0 
address the CTA 
and transfer the control word address 
address the control word register 
and transfer the control word 
next control word 
next channel 
3 control words set up ? 
if not, do some more 
TRAP C$BSEG 
reset the CTA register 
back to control word 0 
drop the priority 
MOV #PRIOO,RO 
TRAP C$SPRI 
clear the interrupt flag 
set up to start the conversions 
enable conversions and clear the SCR 
multiplex to BARI 
set up DMA address 
now select WCR1 
to DMA 2 words 
start the DMA 
enable interrupts 
wait for 1 millisecond 
(2*500 microseconds) 
2 interrupts ? 
skip branch if error insert selected 
if not 2 interrupts, branch 
else print "CONVERSIONS TOO FAST” 
TRAP CSERSOFT 
. WORD 1400 
. WORD E1400 
. WORD ECHK 
branch to BGNSEG if loop on error set 
TRAP CS$CLP1 
wait for another 500 microseconds 
stop any more interrupts 
MOV #PRIO7,RO 
TRAP C$SPRI 
from the DRX11-C 
did we get 2 interrupts ? 
skip branch if error insert selected 
branch if we t 2 interrupts 
else print "CONVERSIONS TOO SLOW” 
TRAP CSERSOFT 


-WORD 1401 





ee 





Fis 
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051050 
051052 

6149 051054 
051054 


6153 051056 
6154 051064 
6155 051072 
6156 051100 
6157 051104 
6158 051110 
6159 051114 
6160 051122 
051126 
6162 051130 
051130 
051132 
051134 
051136 
6163 051140 
051140 


6165 051142 
6166 051150 
6167 051156 
6168 051164 
6169 051172 
6170 051176 
051200 
051200 
051202 
051204 
051206 
6172 051210 

051210 

051210 


6174 051212 
6175 051216 
6176 051220 
6177 051224 
6178 051232 
6179 051234 


051240 
051240 
051244 
6182 051246 
051246 
051250 


6185 051252 
6186 051311 
; 6187 051354 


051354 
023404 


104406 


012737 
012777 
017737 
013700 
042700 
050037 
023737 
004737 
001404 


104457 
002572 
051417 
023416 


104406 


012737 
012777 
017737 
023737 
004737 
001404 


104457 
002573 
051453 
023416 


104405 


005737 
001010 
005237 
023727 
001402 
000137 


013700 
104436 


104432 
000240 


045 
103 
103 


Clock Test. 


010000 
010000 
131536 
003022 
171777 
003020 
003022 
026306 


020002 
020000 
131452 
003022 
026306 


002234 


003032 
003032 
050556 


002636 


123 


003020 
131542 
003022 


003020 


003020 
131456 
003022 
003020 


000010 


062 
116 
116 


, Check 
; 
70$: 


80$: 


90$: 


110$: 


TSHD14:: 


E1400: 
E1401: 





CKLOOP 

ACS and CTA registers 
MOV #ACS ,GOOD 

MOV #ACS ,@DRXDBR 
MOV @DRXDBR , BAD 
MOV BAD,RO 

BIC #tC<UNI!CMP>,RO 
BIS RO,GOOD 

CMP BAD ,GOOD 

CALL INSERT 

BEQ 80$ 

ERRSOFT 1402,€1402,EGB 
CKLOOP 

MOV #CTA!2,GO00D 
MOV #CTA,@DRXDBR 
MOV @DRXDBR , BAD 
CMP BAD ,GOOD 

CALL INSERT 

BEQ 90$ 

ERRSOFT 1403,€1403,EGB 
ENDSEG 

TST QVMODE 

BNE 110$ 

INC ITRCNT 

CMP ITRCNT, #10 

BEQ 110$ 

JMP 30$ 


CLRVEC DRXVEC 


EXIT TST 


-NLIST 
-ASCIZ 
-ASCIZ 
-ASCIZ 


BEX 


. WORD 
. WORD 
branch to BGNSEG if loop on 
TRAP 


get expected ACS contents 
address the ACS register 

and get the actual contents 
get the contents into RO 
and isolate uncertain bits 
set them in GOOD if they are 
contents correct ? 


skip branch if error insert 

branch if ACS is OK 

else print "ACS INCORRECT” 
TRAP 
. WORD 
. WORD 
. WORD 


branch to BGNSEG if loop on 
TRAP 


get expected CTA contents 
address the CTA 

and get the actual contents 
contents correct ? 


skip branch if error insert 

branch if CTA is OK 

else print "CTA INCORRECT” 
TRAP 
. WORD 
. WORD 
. WORD 

10000$: 

TRAP 


is quick verify mode selecte 
if yes, exit test 

else, increment 
iterations completed ? 

if yes, exit 

else do another iteration 


restore the DRS trap catcher 
MOV 
TRAP 


TRAP 
. WORD 


/%S2%APROGRAMMABLE CLOCK TEST#SN/ 
/CONVERSIONS TOO FAST IN CLOCK TEST/ 
/CONVERSIONS TOO SLOW IN CLOCK TEST/ 


E1401 
ECHK 
error set 
C$CLPi 


set 


selected 


CS$ERSOFT 
1402 
E1402 
EGB 
error set 
C$CLP1 


selected 


CSERSOFT 
1403 
E1403 
EGB 


CSESEG 
d? 


iteration counter 


SEQ 0161 


DRXVEC RO 


CsCVvECc 


CSExIT 
L10047-. 








Gis 
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SEQ 0162 
| TEST 14 - Programmable Clock Test. 
| 6188 051417 101 103 123. £1402: .ASCIZ /ACS INCORRECT IN CLOCK TEST/ 
6189 051453 103 124 101 E1403: .ASCIZ /CTA INCORRECT IN CLOCK TEST/ 
6190 -LIST BEX 
6191 .EVEN 
6192 
6193 051510 ENDTST 
051510 L10047: 
051510 104401 TRAP CSETST 


6194 


—— ee ee ee 


H15 
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6217 051512 
051512 
6218 051512 
6219 051516 
051516 
6220 051520 
6221 051524 
6222 051526 
051526 
051532 
051536 
051540 
051542 


6224 051546 
6225 051552 
6226 051560 
6227 051564 


6229 051570 
6230 051574 
6231 051576 


6233 051600 
6234 051604 
6235 051610 
6236 051614 


6238 051622 
051622 

6239 051624 
6240 051632 
6241 051640 
6242 051646 
6243 051654 

| 6244 051662 


005037 


104421 
032700 
001410 


012746 
012746 
010600 
104417 
062706 


013701 
052701 
010177 
052777 


104404 
012777 
052777 
012777 
012777 
012777 
012777 


003030 


001000 


052250 
000001 


000004 


003032 
000040 
026106 
026106 


030320 


002230 
040000 
131020 
000001 


131046 


131004 


131002 
130766 
130766 
130752 
130746 
130742 





-SBTTL TEST 15 - CWR Mode 4 Test. 


344 


; This tests that dummy control table loads can be made by using 
mode 4. The control table and values for output are set up as 


; follows : 


; Control word 


Mode Channel 
0 0 

0 4 

4 1 

4 1 

fe) 2 

1 3 


; The SCR interrupt enable bit is set and the DMA is started with 
; the DRX11-C WCR loaded for 4 DMA's. Conversions are then 


initiated and the program waits for the 


UIPWMrO 


BGNTST 


CLR 
RFLAGS 


BIT 


BEQ 
PRINTF 


10$: CLR 
BIS 
JSR 
JSR 
JSR 
6 
T1STAB 


MOV 
BIS 


208: BGNSEG 


STAFLG 
RO 


#TSHD15 


ITRCNT 
#RES , ARXSCR 
PC,WTSOO 
PC,WTSOO 


PC, SETTAB 


CTIME ,R1 
#PCR,R1 
R1,@0RXDBR 
#FNCTO, @ARXSCR 


#CTA,@DRXDBR 
#FNCTO,@DRXSCR 
#ACS!GO,@D0RXDBR 
#FNCTO,@ORXSCR 
#BAR1, ADRXCOR 
#BUF OUT , ADRXADR 


SEQ 0163 
Output voltage 
1.0 
2.0 
2.0 
2.0 
3.0 
4.0 
conversions to complete. 
T1i5:: 
; flag test has been run since start 
; read operator flags 
TRAP C$RFLA 
; print test headers ? 
; if not, branch 
; else, print test header 
MOV #TSHD15,-(CSP) 
MOV #1,-(SP) 
MOV SP,RO 
TRAP C$PNTF 
ADD #4,SP 


clear iteration counter 
reset the DRX11-C 

wait for 1 millisecond 
(2*500 microseconds) 


set up control table and data 
for 6 control words 
using table at TISTAB 


get the selected conversion time 
address the PCR 

and enter the conversion time 
transfer to PCR 


TRAP 
reset the CTA register 
back to control word 0 
set up to start the conversions 
enable conversions and clear the SCR 
multiplex to BARI 
set up DMA address 


C$BSEG 


iia 
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6245 
6246 
6247 
6248 
6249 
6250 
6251 
6252 
6253 
6254 
6255 
6256 
6257 
6258 
6259 
6260 
6261 
6262 
6263 
6264 
6265 
6266 
6267 
6268 
6269 
6270 
6271 


051670 
051676 
051704 


051712 
051716 
051720 
051724 
051726 
051732 


051734 
051736 
051740 
051742 
051746 
051750 
051752 
051754 
051756 


051760 
051766 
051774 
052002 
052006 
052010 
052010 
052012 
052014 
052016 
052020 
052020 


052022 
052030 
052036 
052044 
052050 
052054 
052060 
052066 
052072 
052074 
052074 
052076 
052100 
052102 
052104 
052104 


052106 
052114 
052122 
052130 
052136 
052142 


012777 
012777 
012777 


013701 


004737 
000175 


005701 
001404 
005301 
004737 
000772 
005702 
001402 
005302 
000770 


012737 
017737 
023737 
004737 
001404 


104457 
002734 
052277 
023416 


104406 


012737 
012777 
017737 
013700 
042700 
050037 
023737 
004737 
001405 


104457 
002735 
052356 
023416 


104406 


012737 
012777 
017737 
023737 
004737 
001404 


000400 
177774 
020000 


002230 
027776 
030072 


026114 


100600 
130634 
003022 
026306 


010000 
010000 
130572 
003022 
171777 
003020 
003022 
026306 


020090 
020000 
130506 
003022 
026306 


130732 
130726 
130716 


003020 
003022 
003020 


003020 
130576 
003022 


003020 


003020 
130512 
003022 
003020 





30$: 
40$: 


50$: 


60$: 


70$: 


80$: 


MOV 
MOV 
MOV 


MOV 


CLR 
JSR 


BEQ 
ERRSOFT 


CKLOOP 


#WCR1,@DRXCOR 
#-4, IDRXADR 
#RUN , DRXCOR 


CTIME,R1i 
R2 
PC,MUL 
PC,DIV 


#ATT!STATO!RDY ,GOOD 
@DRXSCR ,BAD 

BAD ,GOOD 

INSERT 

70$ 

1500,E1500,EGB 


#ACS ,GOOD 
#ACS , @ORXDBR 
@DRXDBR , BAD 

BAD ,RO 
#tC<UNI!CMP>,RO 


80 
1501,€1501,EG8 


#CTA,GOOD 
#CTA,@DRXDBR 
@DRXDBR , BAD 
BAD , GOOD 
INSERT 

90$ 


a i  —“‘_i—C— 


SEQ 0164 
now select WCR1 
to DMA 4 words 
start the DMA 
get the conversion time 
high byte is zero 
multiply by 
the number of conversions 
divide by 
125 
loop until R1/R2 is zero 
wait 25 microseconds 
total timeout = number of conversions 
* conversion time * 2 
get expected SCR contents 
and actual contents 
are they the same ? 
skip branch if error insert selected 
branch if SCR is OK 
else print "SCR INCORRECT” 
TRAP CSERSOFT 
- .WORD 1500 
. WORD E1500 
. WORD EGB 
branch to BGNSEG if loop on error set 
TRAP C$CLPl 
get expected ACS contents 
address the ACS register 
and get the actual contents 
get the contents into RO 
and isolate uncertain bits 
set them in GOOD if they are set 
contents correct ? 
skip branch if error insert selected 
branch if ACS is OK 
else print "ACS INCORRECT” 
TRAP CSERSOFT 
.WORD 1501 
. WORD E1501 
. WORD EGB 


branch to BGNSEG if loop on error set 
TRAP CS$CLP1 


get expected CTA contents 

address the CTA 

and get the actual contents 

contents correct ? 

skip branch if error insert selected 
branch if CTA is OK 


EE —— 


J13 
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' TEST 15 - CWR Mode 4 Test. 


6292 052144 
052144 
052146 
052150 
052152 


6294 052154 
052154 
052154 


6296 052156 
6297 052162 
6298 052164 
6299 052170 
6300 052176 


6302 052200 
052200 
052202 


6308 052204 
6309 052212 
6310 052220 
6311 052226 
6312 052234 
6313 052242 


6316 052250 
6317 052277 
6318 052356 
6319 052424 


6323 052472 
052472 
052472 


104457 
002736 
052424 
023416 


104405 


005737 
001006 
005237 
023727 
001211 


104432 
000270 


000000 
000000 
000004 
000004 
000000 
000001 


104401 


002234 


003032 
003032 


000000 
000001 
000001 
000001 
000002 
000003 


123 
122 
103 
124 


000010 


001750 
003720 
005670 
007640 
000000 
000000 


062 
130 
123 
101 


ERRSOFT 1502,€1502,EGB ; 


90$: ENDSEG 


TST 
BNE 
INC 
CMP 
BNE 


100$: EXIT TST 


QVMODE 3 
100$ } 
ITRCNT 3 
ITRCNT, #10 ; 
20$ 3 


; Outputs : Mode Channel Volta 

; CmV 

TISTAB: .WORD 0, 0, 1000. H 
-WORD OQ, ke 2000. 
.WORD 4, 1. 3000. 
.WORD 4, de 4000. 
-WORD OO, a. 0 H 
-WORD 1, +o 0 
NLIST BEX 


TSHD15::.ASCIZ 
E1500: .ASCIZ 
E1501: .ASCIZ 
E1502: .ASCIZ 
.LIST 
.EVEN 


ENDTST 


/%S28ACWR MODE 4 TESTSN/ 

/DORX11-C SCR INCORRECT AF 

ZACS INCORRECT AFTER MOC 

+ INCORRECT AFTER MODt 
x 


else print "CTA INCORRECT” 
TRAP 


CSERSOFT 
-WORD 1502 
«WORD €1502 
-WORD EGB 
10000$: 
CSESEG 


is quick verify mode selected ? 
if yes, exit test 

else, increment iteration counter 
iterations completed ? 

if not, do another iteration 


TRAP CSEXIT 
«WORD 1L10050-. 


table for outputs 
not used 


‘Ex "ODE 4 CONVERSIONS/ 
DMA OUTPUT/ 
« DMA OUTPUT/ 


L10050: 
TRAP CSETST 


SEQ 0165 


a 


~~ ee oe eee — 


TL TT 


ae ee ee 


K13 


HARDWARE TESTS MACRO VOS.00 Friday 01-Feb-85 08:58 Page 88 


6326 
6327 
6328 
6329 
6330 
6331 
6332 
6333 
6334 
6335 
6336 
6337 
6338 
6339 
6340 
6341 
6342 
6343 
6344 
6345 
6346 
6347 
6348 
6349 


052474 
052474 


052524 


052530 
052534 
052542 
052546 


052552 
052556 
052560 


052562 
052566 
052572 
052576 


052604 
052604 
052606 
052614 
052622 
052630 


005037 


104421 
032700 
001410 


012746 
012746 
010600 
104417 
062706 


005037 
052777 
004737 
004737 


004737 
000006 
053166 


013701 
052701 
010177 
052777 


104404 
012777 
052777 
012777 
012777 


TEST 16 - CWR Mode 5 Test. 


| 
! 
' 


003030 


001000 


053232 
000001 


000004 
003032 
000040 
026106 
026106 


030320 


130064 


130022 


130020 
130004 
130004 
127770 





-SBTTL TEST 16 - CWR Mode 5 Test. 


+ 


mn ee t-te a ene ee 


; This tests that dummy control table loads can be made by using 
mode 5. The control table and values for output are set up as 


follows : 


Control word 


UPWMreO 


Mode Channel 


vio kf foo 
MOF rO 


Output voltage 


(first pass) (second pass) 


1.0 4.0 
2.0 5.0 
2.0 5.0 
2.0 5.0 
3.0 6.0 
3.0 6. 


The SCR interrupt enable bit is set and the DMA is started with 
the DRX11-C WCR loaded for 6 DMA'’s to use the control table 

twice. Conversions are then initiated and the program waits for 
the conversions to complete. 


BGNTST 


CLR 
RFLAGS 


BIT 
BEQ 
PRINTF 


10$: CLR 


BIS 
JSR 
JSR 


JSR 

6 
T16TAB 
MOV 
BIS 


MOV 
BIS 


208: BGNSEG 


MOV 
BIS 
MOV 
MOV 


STAFLG 
RO 


#PNT,RO 
10$ 
#TSHD16 


ITRCNT 
#RES , @DRXSCR 
PC,WTSOO 
PC,WTSOO 


PC, SETTAB 


CTIME ,R1 
#PCR,R1 
R1,@D0RXDBR 
#FNCTO,@DRXSCR 


#CTA,@ORXDBR 

#FNCTO,@DRXSCR 
#ACS!GO, @DRXDBR 
#FNCTO,@DRXSCR 


T16:: 
flag test has been run since start 
read operator flags 
TRAP CS$RFLA 


print test headers ? 

if not, branch 

else, print test header 
MOV 


MOV #1,-(SP) 
MOV SP,RO 
TRAP CSPNTF 
ADD #4 ,SP 


clear iteration counter 
reset the DRX11-C 

wait for 1 millisecond 
(2*500 microseconds) 


set up control table and data 
for 6 control words 
using table at T1I6TAB 


get the selected conversion time 
address the PCR 

and enter the conversion time 
transfer to PCR 


TRAP CS$BSEG 
reset the CTA register 
back to control word 0 
set up to start the conversions 
enable conversions and clear the SCR 


SEQ 0166 


#TSHD16, - (SP) 


en 


Lis 
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TEST 16 - CWR Mode 5 Test. 


6375 
6376 
6377 
6378 
6379 
6380 
6381 
6382 
6383 
6384 
6385 
6386 
6387 
6388 
6389 


g 


052636 
052644 
052652 
052660 
052666 


052674 
052700 
052702 
052706 
052710 
052714 


052716 
052720 
052722 
052724 
052730 
052732 
052734 
052736 
052740 


052742 
052750 
052756 
052764 
052770 
052772 
052772 
052774 
052776 
053000 
053002 
053002 


053004 
053012 
053020 
053026 
053032 
053036 


053070 
053076 
053104 
053112 


012777 
012777 
012777 
012777 
012777 


013701 
005002 
004737 
000014 
004737 
000175 


005701 
001404 
005301 
004737 
000772 
005702 
001402 
005302 
000770 


012737 
017737 
023737 
004737 
001404 


104457 
003100 
053261 
023416 
104406 


012737 


023416 
104406 


012737 
012777 
017737 
023737 


000000 
003040 
000400 
177772 
020000 


002230 
027776 
030072 


026114 


100600 
127652 
003022 
026306 


010000 
010000 
127610 
003022 
171777 
003020 
003022 
026306 


020005 
020000 
127524 
003022 


127764 
127760 
127750 
127744 
127734 


003020 
003022 
003020 


003020 
127614 
003022 


003020 


003020 
127530 
003022 
003020 


30$: 
40$: 


50$: 


60$: 


70$: 


80$: 


MOV 
MOV 





#BAR1, IRXCOR 
#BUF OUT , ADRXADR 
#WCR1,@DRXCOR 
#-6, IDRXADR 
#RUN , DRXCOR 


CTIME,R1 
R2 

PC, MUL 
PC,DIV 


#ATT!STATO!RDY,GOOD 


@DRXSCR ,BAD 
BAD , GOOD 
INSERT 


70$ 
1600,E1600,EGB 


#ACS ,GOOD 
@ACS , @ORXDBR 
@DRXDBR , BAD 

BAD ,RO 
@tC<UNI!CMP>,RO 


80 
1601,€1601,E€G6 


#CTA!S,GO0D 
#CTA, @ORXDBR 
@DRXDBR , BAD 
BAD ,GOOD 


= ef of © es os oe Ss oe = © oe os oF a 


multiplex to BARI 
set up DMA address 
now select WCR1 

to DMA 6 words 
stert the DMA 


get the conversion time 
high byte is zero 
multiply by 

the number of conversions 
divide by 

125 


loop until R1/R2 is zero 
wait 25 microseconds 


total timeout = number of conversions 
* conversion time * 2 


get expected SCR contents 

and actual contents 

are they the same ? 

skip branch if error insert selected 


branch if SCR is OK 

else print "SCR INCORRECT” 
TRAP CSERSOFT 
. WORD 1600 
-WORD €E€1600 
WORD  €EGB 


branch to BGNSEG if loop on error set 
TRAP CS$CLP1 


get expected ACS contents 

address the ACS register 

and get the actual contents 

get the contents into RO 

and isolate uncertain bits 

set them in GOOD if they are set 
contents correct ? 

skip branch if error insert selected 


branch if ACS is OK 

else print “ACS INCORRECT” 
TRAP CSERSOFT 
. WORD 1601 
-WORD E1601 
.WORD €EGB 


branch to BGNSEG if loop on error set 
TRAP CSCLPl 


get expected CTA contents 
eddress the CTA 

and get the actual contents 
contents correct ? 


SEQ 0167 


M13 


HARDWARE TESTS MACRO VOS.00 Friday 01-Feb-85 08:58 Page 88-2 
TEST 16 - CWR Mode 5 Test. 


6422 
6423 
6424 


053120 
053124 
053126 
053126 
053130 
053132 
053134 


053136 
053136 
053136 


053140 
053144 
053146 
053152 
053160 


053162 
053162 
053164 


053166 
053174 
053202 
053210 
053216 
053224 


053232 
053261 
053340 
053406 


053454 
053454 
053454 


004737 
001404 


104457 
003102 
053406 
023416 


104405 


005737 
001006 
005237 
023727 
001211 


104432 
000270 


104401 


026306 


002234 


003032 
003032 


000010 


001750 
003720 
005670 
007640 
011610 
013560 


CALL INSERT 
BEQ 90$ 
ERRSOFT 1602,€1602,EGB 


SEQ 0168 


skip branch if error insert selected 
branch if CTA is OK 
else print "CTA INCORRECT” 

TRAP CSERSOFT 


-WORD 1602 
«WORD E1602 
-WORD EGB 


10000$: 
TRAP CSESEG 


is quick verify mode selected ? 
if yes, exit test 

else, increment iteration counter 
iterations completed ? 

if not, do another iteration 


TRAP CSExIT 
-WORD L10051-. 


teble for outputs 


-ASCIZ /ORX11-C SCR INCORRECT AFTER MODE 5S CONVE IONS/ 


90$: ENDSEG 
TST QVMODE 
BNE 100$ 
INC ITRCNT 
CMP ITRCNT, #10 
BNE 20$ 
100$: EXIT TST 
; Outputs : Mode Channel Volte 
3 (mV 
TI6TAB: .WORD oO, oO, 1000. 
WORD QO, de 2000. 
WORD 4, Ae 3000. 
. WORD 4, Re 4000. 
. WORD ° 2. 5000. 
. WORD 3. 2, 6000. 
-NLIST BEX 
Me sae /#S28ACWR MODE 5S TESTSN/ 
E1601 -ASCIZ /ACS INCORRECT AFTER MODE 5S DMA OUTPUT/ 
E1602 .ASCIZ /CTA INCORRECT AFTER MODE 5S DMA OUTPUT/ 


-LIST BEX 


L10051: 
TRAP CSETST 


N13 
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| TEST 17 


| 


| 
\ 
- 


6453 
6459 
6460 
6461 
6462 
6463 


053456 
053456 
053456 
053462 
053462 
053464 
053470 
053472 
053472 
053476 
053502 
053504 
053506 


053512 
053516 
053524 
053530 


005037 


104421 
032700 
001410 


012746 
012746 
910600 
104417 
062706 


005037 
052777 
004737 
004737 


012746 
012746 
013746 
012746 
104437 
062706 


012701 


004737 
010137 


012777 
052777 


003030 


001000 


054402 
000001 


040137 127010 20%: 


000001 


127102 


126774 


-SBTTL TEST 17 - CWR Mode 6 Test. 


10$ 


*¢ 


; This tests that dummy control table loads can be made by using 


mode 6. The PCR is loaded with the value 95 (complement of 4000) 
to give a conversion time of 400 microseconds. The control table 
is then set up to perform 5 conversions. All except the first 


and lest conversions ere made 


made in mode 0 and mode 1, outputing a value of 1.0 volts and 


2.0 volts respectively on channels 


The SCR interrupt enable bit is set and ae DMA is sterted with 


the DORX11-C WCR loaded for 2 DMA's. Conversions are then 
; initiated and the pr 


between 1 and 1.5 ail l enennan to complete. 


-- 


BGNTST 


CLR 
RFLAGS 


BIT 


BEQ 
PRINTF 


SETVEC 


STAFLG 
RO 


@TSHD17 


ITRCNT 
@RES , IRXSCR 
PC,WTSOO 
PC,WTSOO 


DRXVEC , @INT, OPRIO7 


; 
; Set up the DMA output buffer 
: 





#1000. ,R1 
R2 


PC ,ADCON 
R1,BUFOUT+2 


#PCR!137, @DRXDBR 
oFNCTO, @DRXSCR 


set up for voltage of 1000 millivolts 
QO microvolts 

convert to 12 bit detu in Ri 

and put it in the DMA buffer 

set up for voltage of 2000 millivolts 
QO microvolts 

convert to 12 bit date in R1 

end put it in the DMA buffer 


conversion time of 400 microseconds 
transfer to PCR 


SEQ 0169 
in mode 6. The first and last are 
and 1. 
ram checks that the conversions require 
T1?:: 
; flag test has been run since start 
; read operator flags 
TRAP CS$RFLA 
; print test headers ? 
; if not, branch 
; else, print test header 
MOV @TSHD17, -( SP) 
MOV @1,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04,SP 
; clear iteration counter 
; reset the DORX11-C 
; weit for 1 millisecond 
; (2500 microseconds) 
; set up DRX11-C vector 
MOV @PRIO7, -( SP) 
MOV @INT,-CSP) 
MOV ORXVEC, -( SP) 
MOV @3,-(SP) 
TRAP Cs$SVEC 
ADD 010,SP 


' 


B14 
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6527 053772 
053772 


6528 053774 
i 


° 
= 
$ 


6550 


012777 
052777 
012777 
052777 
012701 


052777 


104404 
012777 
052777 


104457 
003244 
054431 
023404 


104406 


TEST 17 - CWR Mode 6 Test. 


126774 
126760 
126760 
126744 


126722 
126722 
126706 


126524 


000002 





; Set up the control table 


30$: 


@CTA, @ORXOBR 
OFNCTO,@DRXSCR 
@CWR , BORXOBR 
oFNCTO, @ORXSCR 
@3,R1 

OCTA!1,R2 

R2, BORXDBR 
@FNCTO, @DRXSCR 
@CWR !600 , BORXDBR 
@FNCTO,@DRXSCR 


30$ 
@CTA!4,@0RXDBR 
@FNCTO, @ORXSCR 
@CWR!101,3D0RXDBR 
OFNCTO,@DRXSCR 
@CTA, @ORXDBR 
@FNCTO,@ORXSCR 


- + =F @F @F ot © © @F @F @s Ge Ge Ge GF Ge we we oe 


SEQ 0170 


address control word 0 

and transfer to the CTA register 
set up for mode 0, channel 0 

and transfer to CWRO 

set up next 3 control words 

set up for CWR1 

address the CTA 

and transfer the control word address 
set up for mode 6 

and transfer the control word 
next control word 

3 words set up in mode 6 ? 

if not, do some more 

address control word 4 

and transfer to the CTA register 
set up for mode 1, channel 1 
and transfer to CWR 4 

reinitiate the CTA 

to CWR O 


; Set up the DRX11-C and start the DMA output 


40$: 


BGNSEG 


MOV 
BIS 
SETPRI 


@CTA, @ORXDBR 
@FNCTO,@DRXSCR 
#PRIOO 


INTFLG 
@ACS!GO0,@DRXDBR 
oFNCTO, @DORXSCR 
#BAR1, BDRXCOR 
BUF OUT , BRXADR 
@WCR1, BRXCOR 
@-2,@DRXADR 
@RUN , BORXCOR 
@IE ,@ORXSCR 


; Weit for interrupts 


PC,WTSOO 
PC,WTSOO 
INTFLG, #2 
INSERT 
5S0$ 


ERRSOFT 1700,£1700,ECHK 


CKLOOP 


TRAP 
reset the CTA register 
back to control word 0 
drop the priority 

MOV 


TRAP 
clear the interrupt flag 
set up to start the conversions 
enable conversions and clear the SCR 
multiplex to BARI 
set up DMA address 
now select WCRI 
to DMA 2 words 
start the DMA 
enable interrupts 


C$BSEG 


#PRIOO,RO 
C$SPRI 


weit for 1 millisecond 

(2500 microseconds) 

2 interrupts ? 

skip branch if error insert selected 
if not 2 interrupts, branch 

else print “CONVERSIONS TOO FAST” 


TRAP CSERSOFT 

. WORD 1700 

. WORD E1700 

. WORD ECHK 
branch to BGNSEG if loop on error set 

TRAP CSCLPl 


Sanne 


a a ee + 


C14 
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6551 
6552 


6553 
6554 
6555 
6556 
6557 


054140 
054144 
054144 
054150 
054152 
054160 


004737 


012700 
104441 
042777 
023727 
004737 
001405 


104457 
003245 
054474 
023404 


104406 


012737 
012777 
017737 
013700 
042700 
050037 
023737 
004737 
001404 


104457 
003246 
054537 
023416 


104406 


012737 
012777 
017737 
023737 
004737 
001404 


104457 
003247 
054605 
023416 


104405 


005737 
001010 
005237 
023727 
001402 
000137 


026106 
000340 


000100 
002772 
026306 


010000 
010000 
126406 
003022 
171777 
003020 
003022 
026306 


020000 
020000 
126322 
003022 
026306 


002234 


003032 
003032 


053772 


126446 
000002 


003020 
126412 
003022 


003020 


003020 
126326 
003022 
003020 


000010 


50$: 


; Check 


608: 


70$: 


80$: 


JSR 
SETPRI 


CKLOOP 


the ACS 


ENOSEG 





PC ,WTSOO 
oPRIO7 


@IE , IORXSCR 
INTFLG, #2 
INSERT 

60$ 
1701,€1701,ECHK 


and CTA registers 


#ACS ,GOOD 

@ACS ,aDRXDBR 
@DRXDBR , BAD 

BAD ,RO 
@tC<UNI!CMP>,RO 
RO,GOOD 

BAD ,GOOD 

INSERT 

70$ 
1702,€1702,EGB 


#CTA,GOOD 
#CTA,@ORXDBR 
@DRXDBR , BAD 
BAD ,GOOD 
INSERT 

80$ 
1703,€1703,€G8 


ITRCNT 
ITRCNT, #10 
90$ 

40$ 


wait another 500 microseconds 


stop any more interrupts 
MOV 
TRAP 

from the DRX11-C 

did we get 2 interrupts ? 


SEQ 0171 


#PRIO7,RO 
C$SPRI 


skip branch if error insert selected 


branch if we 


got 2 interrupts 


else print “CONVERSIONS TOO SLOW” 


TRAP 
. WORD 


TRAP 


get expected ACS contents 
address the ACS register 
and get the actual contents 
get the contents into RO 
and isolate uncertain bits 


CSERSOFT 


CSCLPl 


set them in GOOD if they are set 


contents correct ? 

skip branch 

branch if ACS is OK 

else print "ACS INCORRECT” 
TRAP 


. WORD 
branch to BGNSEG if loop on 
TRAP 


get expected CTA contents 
address the CTA 

and get the actual contents 
contents correct ? 


skip branch if error insert 

branch if CTA is OK 

else print "CTA TNCORRECT” 
TRAP 
. WORD 
. WORD 
. WORD 

10000$: 

TRAP 


error 


if error insert selected 


CSERSOFT 


set 
CSCLP1 


selected 


CSERSOFT 
1703 
E1703 
EGB 


CSESEG 


is quick verify mode selected ? 


if yes, exit test 
else, increment 
iterations completed ? 

if yes, exit test 

else, do another iteration 


iteration counter 


naan: ene 


a eS 


— ee ee 


—_ a ee ee we ee ee ee ee + — —- 


D1i4 
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“TEST 17 


6590 


- CWR Mode 6 Test. 


054370 
054370 
054374 
054376 
054376 
054400 


054402 
054431 
054474 
054537 
054605 


054654 
054654 
054654 


013700 002636 
104436 


104432 

000254 
045 123 
103 117 
103 117 
101 103 
103 124 

104401 


90$: 


CLRVEC 


EXIT TST 


-NLIST 


TSHD17: : .ASCIZ 


E1700: 
E1701: 
E1702: 
E1703: 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-LIST 
-EVEN 


ENDTST 


SEQ 0172 


DRXVEC ; restore the DRS trap catcher 


BEX 

/#S28ACWR MODE 6 TESTSN/ 

/CONVERSIONS TOO FAST IN CWR MODE 6/ 
/CONVERSIONS TOO SLOW IN CWR MODE 6/ 
7ACS INCORRECT AFTER MODE 6 DMA OUTPUT/ 
/CTA INCORRECT AFTER MODE 6 DMA OUTPUT/ 
BEX 


L100Se: 
T 


DRXVEC ,RO 


TRAP C$CVEC 


TRAP CSExIT 
«WORD L10052-. 


RAP CSETST 


’ 
—A 


EE EE OEE EEE LL LL 


a 


E14 
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\ 


6605 
6606 
6607 
6608 
6609 
6610 
6611 
6612 
6613 
6614 
6615 


054656 
054656 
054656 
054662 
054662 
054664 
054670 
054672 
054672 
054676 
054702 
054704 
054706 


054712 
054716 
054724 
054730 


054734 
054740 
054742 


054744 
054750 
054754 
054760 


054766 
054766 
054770 
054776 
055004 


005037 


104421 
032700 
001410 


012746 
012746 
010600 
104417 
062706 


005037 
052777 
004737 
004737 


004737 
000006 
055350 


013701 
052701 
010177 
052777 


104404 
012777 
052777 
012777 


003030 


001000 


055414 
000001 


000004 


003032 
000040 
026106 
026106 


030320 


002230 
040000 
125654 
000001 


020000 
000001 
010011 


125702 


125640 


125636 
125622 
125622 





.SBTTL TEST 18 - CWR Mode 7 Test. 


;e4 


; This tests that dummy control table loads 


follows : 
; Control word Mode Channel Output 
0 0 0 
1 7 0 
2 7 0 
a 0 1 
4 f¢) 2 
5 fe) 3 


; The SCR interrupt enable and ACS SBE bits 
; started with the DRX11-C WCR loaded for 3 


; 
; 
: 
; 
3 
; 
; 
; 
; 
H 
; 
; 
; 
; 
; 
; 
4 
; 
; 
3 


BGNTST 
CLR STAFLG F 
RFLAGS RO ; 
BIT #PNT ,RO i 
BEQ 10$ ‘ 
PRINTF #TSHD18 : 
10$: CLR ITRCNT , 
BIS #RES , @ORXSCR ; 
JSR PC ,WTS00 ; 
JSR PC,WT500 ; 
JSR PC, SETTAB i 
5 
T18TAB ; 
MOV CTIME,R1 i 
BIS #PCR,R1 : 
MOV R1, @DRXDBR - 
BIS #FNCTO, @DRXSCR ; 
20$:  BGNSEG 
MOV #CTA, @DRXDBR , 
BIS #FNCTO, @DRXSCR 
MOV #ACS!SBE!GO, @DRXDBR ; 


Punrrr 
oooo°o°o 


SEQ 0173 


can be made by using 


; mode 7. The control table and values for output are set up as 


voltage 


¥ 


- should 
> not be 
- output 


are set end the DMA is 
DMA's. Conversions are 


then initiated. As the second conversion completes, COUT goes 
; low causing the input SEQ CONT L to go low. The diagnostic 

; checks that an SBR interrupt then occurs and that conversions 
; stop with the CTA register pointing to the 4th control word. 


T18:: 


flag test has been run since start 
read operator flags 


TRAP C$RFLA 


print test headers ? 
if not, branch 
else, print test header 


MOV #TSHD18,-(SP) 
MOV SP ,RO 
TRAP CS$PNTF 
ADD #4,SP 


; clear iteration counter 
; reset the DRX11-C 

weit for 1 millisecond 
(2*500 microseconds) 


set up control table and data 
; for 6 control words 
using teble at TI8TAB 


; get the selected conversion time 
address the PCR 

and enter the conversion time 
transfer to PCR 


TRAP C$BSEG 


reset the CTA register 
; back to control word 0 , 
set up to start the conversions 


ee ee 


F1i4 


! 
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6654 
6655 
6656 
6657 
6658 
6659 
6660 
6661 
6662 
6663 
6664 
6665 
6666 
6667 
6668 
6669 
6670 
6671 
6672 
6673 
6674 
6675 
6676 
6677 
6678 
6679 
6680 
6681 
6682 
6683 


055012 
055020 
055926 
055034 
055042 
055050 


055056 
055062 
055064 
055070 
055072 
055076 


055100 
055102 
055104 
055106 
055112 
055114 
055116 
055120 
055122 


055124 
055132 
055140 
055146 
055152 
055154 
055154 
055156 
055160 
055162 
055164 
055164 


055166 
055174 
055202 
055210 
055214 
055220 
055224 
055232 
055236 
055240 
055240 
055242 
055244 
055246 
055250 
055250 


055252 
055260 
055266 


012777 
012777 
012777 
012777 
012777 
012777 


013701 
005002 
004737 
000003 
004737 
000175 


005701 
001404 
005301 
004737 
000772 
005702 
001402 
005302 
000770 


012737 
017737 
023737 
004737 
001404 


104457 
003410 
055443 
023416 


104406 


012737 
012777 
017737 
013700 
042700 
050037 
023737 
004737 
001405 


104457 
003411 
055522 
023416 


104406 
012737 


012777 
017737 


000001 
000000 
003040 
000400 
177775 
020000 


002230 
027776 
030072 


026114 


100600 
125470 
003022 
026306 


010250 
010000 
125426 
003022 
171777 
003020 
003022 
026306 


020003 
020000 
125342 


125606 
125602 
125576 
125566 
125562 
125552 


003020 
003022 
003020 


003020 
125432 
003022 


003020 


003020 
125346 
003022 


30$: 
40$: 


50$: 


60$: 


70$: 


80$: 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


MOV 
CLR 


BEQ 
ERRSOFT 


CKLOOP 


BEQ 
ERRSOFT 


CKLOOP 


MOV 
MOV 
MOV 





#FNCTO, @DRXSCR 
#BAR1, ADRXCOR 
#BUF OUT , ARXADR 
#WCR1,@DRXCOR 
#-3,@DRXADR 
#RUN , IRXCOR 


CTIME,R1 
Re 

PC, MUL 
PC,DIV 


#ATT!STATO!RDY,GOOD 
@DRXSCR ,BAD 

BAD ,GOOD 

INSERT 

70$ 

1800 ,£1800,£GB 


#ACS!SBR!SBE!E0C ,GO0D 
#ACS ,@DRXDBR 
@DRXDBR , BAD 

BAD ,RO 
#tC<UNI!CMP>,RO 


80$ 
1801,E1801,EGB 


#CTA!3,GO0D 
#CTA,@ORXDBR 
@DRXDBR , BAD 


= © @e ef of ee &t os oe oe 


enable conversions and clear the SCR 
multiplex to BARI 

set up DMA address 

now select WCR1 

to DMA 3 words 

start the DMA 


get the conversion time 
high byte is zero 
multiply by 

the number of conversions 
divide by 

125 


loop until R1/R2 is zero 


wait 25 microseconds 


total timeout = number of conversions 
* conversion time * 2 


get expected SCR contents 
and actual contents 
are they the same ? 
skip branch if error insert selected 
branch if SCR is OK 
else print “SCR INCORRECT” 
TRAP CSERSOFT 


-WORD 1800 
-WORD E1800 
-WORD EGB 


branch to BGNSEG if loop on error set 
TRAP C$CLP1 


get expected ACS contents 
address the ACS register 
and get the actual contents 
get the contents into RO 
and isolate uncertain bits 
set them in GOOD if they are set 
contents correct ? 
skip branch if error insert selected 
branch if ACS is OK 
else print “ACS INCORRECT” 
TRAP CSERSOFT 


-WORD 1801 
-WORD E1801 
-WORD EGB 


branch to BGNSEG if loop on error set 
TRAP C$CLP1l 


get expected CTA contents 
address the CTA 
and get the actual contents 





SEQ 0174 


! 
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055274 
055302 
055306 
055310 
055310 
055312 
055314 
055316 


055320 
055320 
055320 


055322 
055326 
055330 
055334 
055342 


055344 
055344 
055346 


6701 
6702 
6703 
6704 


6705 
6706 


6707 


| 
6708 

6709 

6710 

6711 

6712 

6713 

6714 

6715 

6716 

6717 

6718 
6719 
055350 
055356 
055364 
055372 
055400 
055406 
| 
' 


6720 
6721 
6722 
6723 
6724 
6725 
6726 
6727 
6728 
6729 
6730 
6731 
6732 
6733 
6734 
6735 


055414 
055443 
055522 
055570 


055636 
055636 
055636 
6736 


023737 
004737 
001404 


104457 
003412 
055570 
023416 


104405 


005737 
001006 
005237 
023727 
001211 


104432 
000270 


000000 
000007 
000007 
000000 
000000 
000000 


045 
104 
101 
103 


104401 


003022 
026306 


002234 


003032 
003032 


000000 
000000 
000000 
000001 
000002 
000003 


003020 


000010 


001750 
003720 
005670 
007640 
000000 
000000 


062 
130 
123 
101 


G14 
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SEQ 0175 


contents correct ? 

skip branch if error insert selected 
branch if CTA is OK 

else print "CTA INCORRECT" 


TRAP CSERSOFT 
-WORD 1802 
-WORD E1802 
-WORD EGB 


10000$: 
TRAP CSESEG 


is quick verify mode selected ? 
if yes, exit test 

else, increment iteration counter 
iterations completed ? 

if not, do another iteration 


TRAP 
. WORD 


CS$EXxIT 
L10053-. 


table for outputs 


not used 


/DRX11-C SCR INCORRECT AFTER MODE 7 CONVERSIONS/ 


CMP BAD ,GOOD 
CALL INSERT 
BEQ 90$ 
ERRSOFT 1802,E1802,EGB 
90$: ENDSEG 
TST QVMODE 
BNE 100$ 
INC ITRCNT 
CMP ITRCNT, #10 
BNE 20$ 
100$: EXIT TST 
; Outputs : Mode Channel Volta 
H CmV 
T1i8TAB: .WORD oO, QO, 1000. 
. WORD Te QO, 2000. 
. WORD 7; QO, 3000. 
. WORD QO, i. 4000. 
. WORD oO, r (¢) 
. WORD Oo, 3, (¢) 
-NLIST BEX 
TSHD18::.ASCIZ /#S2sACWR MODE 7 TEST#N/ 
E1800: .ASCIZ 
E1801: .ASCIZ /ACS INCORRECT AFTER MODE 7 DMA OUTPUT/ 
E1802: .ASCIZ /CTA INCORRECT AFTER MODE 7 DMA QUTPUT/ : 
AIST BEX 
.EVEN 
ENDTST 


L10053: 
TRAP CSETST 


i ee ee 
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: TEST 19 - Date Buffer Empty Test. 


6738 
6739 
6740 
6741 
6742 
6743 
6744 
6745 
6746 
6747 
6748 
6749 
6750 
6751 
6752 
6753 
6754 
6755 
6756 
6757 
6758 


6773 
6774 
6775 
6776 
6777 
6778 
6779 
6780 
| 6781 


055640 
055640 
055640 
055644 
055644 
055646 
055652 
055654 
055654 
055660 
055664 
055666 
055670 


055674 
055700 
055706 
055712 


055716 
055716 
055722 
055726 
055732 
055736 
055740 


055744 
055750 
055752 
055756 
055762 
055766 
055772 
055774 


005037 


104421 
032700 
001410 


012746 
012746 
010600 
104417 
062706 


005037 
052777 
004737 
004737 


012746 
012746 
013746 
012746 
104437 
062706 


012701 


003030 


001000 


056632 
000001 


000004 


003032 
000040 
026106 
026106 


000340 
032216 
002636 
000003 


000010 
011610 
026510 
070000 


003040 
000100 


124720 


a a a eae 


H14 


SEQ 0176 
.SBTTL TEST 19 - Data Buffer Empty Test. 
3+ 
; This tests that an interrupt can be generated when the AAFO1-A 
; data buffer becomes empty. 
; 
; The ACS extenal clock enable bit is set to prevent conversions. 
; The control table is then set up for 66 conversions in mode 0, 
; to output a value of 5.0 volts on sequential (modulo 15) 
; channels. 
; 
; DMA's are then initiated and the diagnostic waits for 1 
; millisecond for the FIFO to be fully loaded. The DRX11-C COR 
; maintenance bit is then set to prevent further DMA's. The ECE 
; bit is then cleared to allow conversions. A check is made that 
; the DBE bit causes an interrupt within a specific timeout 
; period and that the CTA register indicates that 64 conversions 
; took place. 
BGNTST 
T19:: 
CLR STAFLG ; flag test has been run since start 
RFLAGS RO ; read operator flags 
TRAP C$RFLA 
BIT #PNT,RO ; print test headers ? 
BEQ 10$ ; if not, branch 
PRINTF #TSHD19 ; else print test header 
MOV #TSHD19,-( SP) 
MOV #1,-CSP) 
MOV SP,RO 
TRAP C$PNTF 
ADD #4 ,SP 
10$: CLR ITRCNT ; clear iteration counter 
20$: BIS #RES ,@DRXSCR ; reset the DRX11-C 
JSR PC,WT500 ; wait for 1 millisecond 
JSR PC,WTSO00 ; €2*500 microseconds) 
; Set up the DMA output buffer 
SETVEC ORXVEC, #INT, #PRIO7 ; set up DRX11-C vector 
MOV #PRIO7,-CSP) 
MOV #INT,-CSP) 
MOV ORXVEC, -CSP) 
MOV #3,-CSP) 


TRAP C$SVEC 
ADD #10,SP 


MOV #5000. ,R1 ; set up for voltage of 5000 millivolts 
CLR R2 ; O microvolts in conversions 
JSR PC,ADCON ; convert to 12 bit data in Ri 
BIS #70000 ,R1 ; set RSA bits for output with MNT bit 
MOV #BUF OUT ,R3 ; address of DMA buffer in R3 
MOV #64. ,R4 ; number of words to set up 
30$: MOV R1,(R3)+ ; set up the date in the buffer 
DEC R4 ; 64 words set up ? 


| 
| 


| HARDWARE TESTS 
| TEST 19 - Date 
6782 055776 


| —-- 783: 056000 
6784 056004 
6785 
6786 056006 

056012 
056016 
| 

i 


056022 


056030 
056034 
056040 
056044 
056050 
056056 
056062 
056070 
056072 
056074 
056100 
056102 
056104 
056110 
056116 
056124 


056132 
056132 
056134 
056142 
056150 
056150 
056154 
056156 
056162 
056170 
056176 
056204 
056212 
056220 
056226 
056234 


056242 
056246 
056252 
056260 


056266 
056272 
056274 
056300 


me ee ee ee 


114 
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Buffer Empty Test. 


001375 
012723 
010113 


013701 
052701 
010177 
052777 


012701 
012702 
012703 
010277 
052777 
010377 
052777 
005202 
005203 
042703 
005301 
001360 
010277 
052777 
012777 
052777 


104404 
012777 
052777 


012700 
104441 
005037 
012777 
012777 
012777 
012777 
012777 
012777 
012777 
052777 


004737 
004737 
052777 
012777 


013701 
005002 
004737 
000100 


050001 


002230 
040000 
124612 
000001 


000101 
020000 
030000 
124564 
000001 
124552 
000001 


000020 


124524 
000001 
030000 
000001 


020000 
000001 


000000 
002772 


002230 
027776 


124576 


124550 
124536 


124510 
124510 
124474 


124472 
124456 


124444 
124430 
124424 
124420 
124410 
124404 
124374 
124364 


124350 
124346 





BNE 
MOV 
MOV 


MOV 
BIS 
MOV 
BIS 


30$ 
#50001, (R3)+ 
R1,(R3) 


CTIME,R1 
#PCR,R1 
R1,@0RXDBR 
#FNCTO,@DRXSCR 


; Set up the control table 


40$: 


50$: 


#65.,R1 
#CTA,R2 

#CWR ,R3 
R2,@0RXDBR 
#FNCTO,@D0RXSCR 
R3,DRXDBR 
#FNCTO,@DRXSCR 
Re 

R3 

#20,R3 

R1 


S0$ 

R2,@DRXDBR 
#FNCTO,@DRXSCR 
#CWR , DRXDBR 
#FNCTO,@DRXSCR 


; Set up the DRX11-C and start 


BGNSEG 


BIS 
SETPRI 


CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 


JSR 
JSR 
BIS 
MOV 


MOV 
CLR 
JSR 
64. 


#CTA,@DRXDBR 
#FNCTO,@DRXSCR 
#PRIOO 


INTFLG 


#ACS!ECE!GO!MNT, @DRXDBR 


#FNCTO,@DRXSCR 
#BAR1,@D0RXCOR 
#BUF OUT , ADRXADR 
#WCR1,@DRXCOR 
#-100. , @ORXADR 
#RUN , ARXCOR 
#IE,@DRXSCR 


PC,WTSOO 
PC,WTSOO 
#MAINT , ARXCOR 
#ACS!GO,@DRXDBR 


CTIME ,R1 
Re 
PC, MUL 


the DMA 


SEQ 0177 


if not, set up another 
else set up the 65th word 
and the 66th 


get the selected conversion time 
address the PCR 

and enter the conversion time 
transfer to PCR 


set up 65 control words 

set up for CWRO 

mode 0, channel 0 

address the CTA 

and transfer the control word address 
address the control word register 
and transfer the control word 
next control word 

next channel 

don't go higher than channel 15 
65 control words set up ? 

if not, do some more 

set 66th control word 

to reset channel 0 to 

5 volts after the DBR output 

(see below) 


TRAP 
reset the CTA register 
back to control word 0 
drop the priority 

MOV 


TRAP 
clear the interrupt flag 
set up to start the conversions 
enable conversions and clear the SCR 
multiplex to BAR1 
set up DMA address 
now select WCRI 
to DMA 100 words 
start the DMA 
enable interrupts 


C$BSEG 


#PRIOO,RO 
C$SPRI 


wait 1 millisecond for FIFO to load 
(2*500 microseconds) 

prevent further DMA’s 

clear ext. clock enable - this value in 
the DBR causes 
channel 0 to go 
momentarily low 
after the 64th 
conversion 


get the conversion time 
hi byte is zero 
multiply by 

the number of conversions 


J1i4 
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SEQ 0178 
er 19 - Date Buffer Empty Test. 
6836 056302 004737 030072 JSR PC,DIV ; divide by 
} aaee 056306 000175 Laos ; 125 
6 
6839 056310 005701 60$: TST Ri ; loop until R1/R2 is zero 
6840 056312 001404 BEQ 80$ 3 
6841 056314 005301 70$: DEC R1 ; 
6842 056316 004737 026114 JSR PC,WT25 ; wait 25 microseconds 
6843 056322 000772 BR 60$ F 
6844 056324 005702 80$: TST R2 ; 
6845 056326 001402 BEQ 90$ ; total timeout = number of conversions 
6846 056330 005302 DEC R2 ; * conversion time * 2 
ot 056332 000770 BR 70$ ; 
684 
6849 056334 90$: SETPRI #PRIO7 ; stop any interrupts 
056334 012700 000340 MOV #PRIO7,RO 
056340 104441 TRAP C$SPRI 
6850 056342 042777 000100 124256 BIC #IE,@DRXSCR ; from the DRX11-C 
6851 056350 005737 002772 TST INTFLG ; did we get an interrupt ? 
6852 056354 004737 026306 CALL INSERT ; skip branch if error insert selected 
6853 056360 001004 BNE 100$ ; branch if we got an interrupt 
6854 056362 ERRSOFT 1900,E1900,ECHK ; else print "NO INTERRUPT” 
056362 104457 TRAP CS$ERSOFT 
056364 003554 . WORD 1900 
056366 056670 . WORD E1900 
056370 023404 . WORD ECHK 
6855 056372 100$: CKLOOP ; branch to BGNSEG if loop on error set 
5 056372 104406 TRAP C$CLP1 
6856 
6857 056374 012737 110600 003020 MOV #ATT!WAIT!STATO!RDY,GOOD ; get expected SCR contents 
6858 056402 017737 124220 003022 MOV @DRXSCR,BAD ; and get the actual contents 
6859 056410 023737 003022 003020 CMP BAD ,GOOD ; contents correct ? 
6860 056416 004737 026306 CALL INSERT ; skip branch if error insert selected 
6861 056422 001404 BEQ 110$ ; branch if SCR is OK 
6862 056424 ERRSOFT 1901,E€1901,EGB ; else print "SCR INCORRECT” 
056424 104457 TRAP CSERSOFT 
056426 003555 . WORD 1901 
056430 056727 . WORD E1901 
056432 023416 . WORD EGB 
6863 056434 110$: CKLOOP ; branch to BGNSEG if loop on error set 
sae 056434 104406 TRAP C$CLP1 
686 
6865 056436 012737 010300 003020 MOV #ACS!DBE!E0C ,GOOD ; get expected ACS contents 
6866 056444 012777 010000 124162 MOV #ACS ,@DRXDBR ; address the ACS register 
6867 056452 017737 124156 003022 MOV @DRXDBR , BAD ; and get the actual contents 
6868 056460 013700 003022 MOV BAD ,RO ; get the contents into RO 
6869 056464 042700 171777 BIC #tC<UNI!CMP>,RO ; and isolate uncertain bits 
6870 056470 050037 003020 BIS RO,GOOD ; set them in GOOD if they are set 
6871 056474 023737 003022 003020 CMP BAD ,GOOD ; contents correct ? 
6872 056502 004737 026306 CALL INSERT ; skip branch if error insert selected 
6873 056506 0C1404 BEQ 120$ ; branch if ACS is OK 
6874 056510 ERRSOFT 1902,E1902,EGB ; else print “ACS INCORRECT” 
056510 104457 TRAP CSERSOFT 
056512 003556 . WORD 1902 
056514 057012 . WORD E2902 
056516 023416 -WORD EGB 
6875 056520 120$: CKLOOP ; branch to BGNSEG if loop on error set 


j 056520 104406 TRAP CsCLPl 





| HARDWARE TESTS 


| TEST 19 


| 
| 6876 
| 6877 


6878 
6879 
687° 
6641 
6882 
6883 
6884 
6885 
6886 
\ 


- Data 


056522 
056530 
056536 
056544 
056552 
056556 
056560 
056560 
056562 
056564 
056566 
056570 
056570 
056570 


056572 
056576 
056600 
056604 
056612 
056614 


056620 
056620 
056624 
056626 
056626 
056630 


056632 
056670 
056727 
057012 
057076 


057162 
057162 
057162 


K14 
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Buffer Empty Test. 


012737 
012777 
017737 
023737 
004737 
001404 


104457 
003557 
057076 
023416 


104405 


005737 
001010 
005237 
023727 
001402 
000137 


013700 
104436 


104432 
000332 


045 
116 
104 
101 
103 


104401 


020102 
020000 
124072 
003022 
026306 


002234 


003032 
003032 


055700 


002636 


i23 
117 
122 
103 
124 


003020 
124076 
003022 
003020 


000010 


062 
040 
130 
123 
101 


130$: 


140$: 


150$: 


TSHD19:: 
E1900: 
E1901: 
£1902: 
E1903: 


MOV #CTA!66.,GO0D 
MOV #CTA,@ORXDBR 
MOV @DRXDBR , BAD 
CMP BAD ,GOOD 


CALL INSERT 
BEQ 130$ 
ERRSOFT 1903,£1903,EGB 


ENDSEG 

TST QVMODE 

BNE 140$ 

INC ITRCNT 

CMP ITRCNT, #10 
BEQ 140$ 

JMP 20$ 


CLRVEC DRXVEC 


EXIT TST 


-NLIST BEX 


SEQ 0179 


get expected CTA contents 
address the CTA 
and get the actual contents 
contents correct ? 
skip branch if error insert selected 
branch if CTA is OK 
else print "CTA INCORRECT” 
TRAP CSERSOFT 


-WORD 1903 
-WORD E1903 
-WORD EGB 
10000$: 
CSESEG 


is quick verify mode selected ? 
if yes, exit test 

else, increment iteration counter 
iterations completed ? 

if yes, exit test 

else, do another iteration 


restore the DRS trap catcher 
MOV DRXVEC,RO 
TRAP CS$CVEC 


TRAP CSEXxIT 
-WORD L10054-. 


ASCIZ /#S2sADATA BUFFER EMPTY TESTSN/ 
-PSCIZ /NO DATA BUFFER EMPTY INTERRUPT/ 
-ASSIZ /DRX11-C SCR INCORRECT AFTER DATA BUFFER EMPTY TEST/ 
-ASCXZ /ACS REGISTER INCORRECT AFTER DATA BUFFER EMPTY TEST/ 
-ASC1Z /CTA REGISTER INCORRECT AFTER DATA BUFFER EMPTY TEST/ 


-LIST BEX 
EVEN 


ENDTST 


L10054;: 
TRAP CSETST 


ee | 


a ee ee 


Li4 
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TEST 20 - External Clock Test. 


6908 
6909 
6910 
6911 
6912 
6913 
6914 
6915 
6916 
6917 
6918 
6919 
6920 
6921 
6922 
6923 
6924 
6925 
6926 
6927 
6928 
6929 
6930 


6931 
6932 


6933 
6934 
6935 


6936 
6937 
6938 
6939 
6940 
6941 
6942 


6943 
6944 
6945 
6946 
6947 
6948 
6949 
6950 
6951 


057164 
057164 
057164 
057170 
057170 
057172 
057176 
057200 
057200 
057204 
057210 
057212 
057214 


057220 
057224 
057232 
057236 


057242 
057242 
057246 
057252 
057256 
057262 
057264 


057270 
057274 
057276 


057300 
057304 
057310 
057314 


005037 


104421 
032700 
001410 


012746 
012746 
010600 
104417 
062706 


005037 
052777 
004737 
004737 


012746 
012746 


013701 
052701 
010177 
052777 


003030 


001000 


057756 
000001 


000004 


003032 
000040 
026106 
026106 


000340 
032216 
002636 
000003 


000010 
030320 


123320 
000001 


123374 


123304 


-SBTTL TEST 20 - External Clock Test. 


7+ 


; 
; 
: 
3 
‘ 
; 
3 
a 
; 
3 
: 
> 
: 
; 
H 
: 
: 
5 





; This checks that the RATE CLOCK IN/OUT line can be used to 
; trigger conversions. The control table and values for output are 
; set up as follows : 


; Control word Mode Channel Output voltage 


0 0 0 1.0 
1 0 1 2.0 
2 1 2 3.0 


; The external clock enable and maintenance bits are set and a 3 

; word DMA is enabled. The diagnostic then waits for 1 millisecond 
; for the data to be loaded into the FIFO, after which COUT is set 
; and cleared 3 times. This signal is looped back to the RATE 


CLOCK IN/OUT line via the test connector. After the third pulse 


; @ check is made that an End of conversion interrupt occurred and 
; that the SCR and ACS registers are correct. 


SEQ 0180 


BGNTST 
T20:: 

CLR STAFLG ; flag test has been run since start 

RFLAGS RO ; read operator flags 
TRAP C$RFLA 

BIT #PNT,RO ; print test headers ? 

BEQ 10$ ; if not, branch 

PRINTF #TSHD20 ; else, print test header 
MOV #TSHD20, -( SP) 
MOV SP ,RO 
TRAP C$PNTF 
ADO #4,SP 

10$: CLR ITRCNT ; clear iteration counter 

BIS #RES,@DRXSCR ; reset the DRX11-C 

JSR PC,WTS500 ; wait for 1 millisecond 

JSR PC ,WT500 ; €2*500 microseconds) 

SETVEC DORXVEC,#INT, #PRIO7 ; set up DRX11-C vector 
MOV #PRIO7, -(SP) 
MOV DRXVEC, - (SP) 
MOV 03,-(SP) 
TRAP C$SVEC 
ADD #10,SP 

JSR PC,SETTAB ; set up control teble and date 

3 ; for 3 control words 

T20TAB ; using table at T20TAB 

MOV CTIME,R1 ; get the selected conversion time 

BIS #PCR,R1 ; address the PCR 

MOV R1,a0RXDBR ; and enter the conversion time 

BIS #FNCTO,@DRXSCR ; transfer to PCR 


M14 
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TEST 20 - External Clock Test. 


6952 
6953 


6954 
6955 
6956 


057322 
057322 
057324 
057332 
057340 
057340 
057344 
057346 
057352 
057360 
057366 
057374 
057402 
057410 
057416 
057424 


057432 
057436 


057442 
057446 
057454 
057462 
057470 
057476 
057500 


057502 
057510 


057516 
057522 
057524 
057530 


057532 
057534 
057536 
057540 
057 44 
OS 346 
OS 350 
057552 
057554 


104404 
012777 
052777 


012700 
104441 
005037 
012777 
012777 
012777 
012777 
012777 
012777 
012777 
052777 


004737 
004737 


012701 
052777 
052777 
042777 
052777 
005301 
001362 


012777 
052777 


013701 


026114 


000340 


000100 
002772 
026306 


123302 
123266 


123254 
123240 
123234 
123230 
123220 
123214 
123204 
123174 


123160 
123144 
123144 
123130 


123124 
123110 


123034 





20$: 


30$: 


40$: 
50$: 


60$: 


70$: 


BGNSEG 
MOV #CTA,@ORXDBR ; 
BIS #FNCTO, @DRXSCR ; 


SETPRI #PRIOO ; 


CLR INTFLG ; 
MOV #ACS!ECE!GO!MNT,@DRXDBR ; 
MOV #FNCTO,@DRXSCR 3 
MOV #BAR1,@D0RXCOR F 
MOV #BUF OUT , IORXADR : 
MOV #WCR1,@DRXCOR 3 
MOV #-3,2DRXADR . 
MOV #@RUN, ADRXCOR : 
BIS #IE,@DRXSCR ; 
JSR PC,WTSO0 

JSR PC ,WTSOO ; 
MOV #3,R1 : 
BIS #ACS!COUT, @DRXDBR 5 
BIS #FNCTO,@DRXSCR 3 
BIC #COUT , ADRXDBR ; 
BIS #FNCTO,@DRXSCR : 
DEC R1 ; 
BNE 30$ : 
MOV #ACS!COUT!ECE!G0,aDRXDBR; 
BIS #FNCTO,@DRXSCR ; 
MOV CTIME ,R1 ; 
CLR R2 ; 
JSR PC,DIV ’ 
125. ; 
TST R1 ; 
BEQ 60$ ; 
DEC R1 ; 
JSR PC, ,WT25 ; 
BR 40$ PF 
TST R2 ; 
BEQ 70$ ; 
DEC Re ; 
BR 50$ 3 


SETPRI #PRIO7 


BIC @IE ,@ORXSCR 
TST INTFLG 
CALL INSERT 


BNE 80$ 
ERRSOFT 2000,E2000,ECHK 


_---- ee ee eee -_—_— — 


SEQ 0181 


TRAP C$BSEG 
reset the CTA register 
back to control word 0 
drop the priority 

MOV #PRIOO,RO 


TRAP C$SPRI 
clear the interrupt flag 
set up to start the conversions 


; enable conversions and clear the SCR 


multiplex to BARI 


; set up DMA address 
; now select WCRI 

; to DMA 3 words 

; start the DMA 

; enable interrupts 


: wait 1 millisecond for FIFO to load 


(2500 microseconds) 


; set and clear COUT 3 times 
; set COUT 


in ACS register 
clear COU 

in ACS register 
done 3 times ? 
if not, go back 


clear MNT and set COUT 
to complete the conversion 


get the conversion time 
high byte is zero 
divide by 

125 


; loop until R1/R2 is zero 


; wait 25 microseconds 


totel timeout = number of conversions 
* conversion time ¢ 2 


stop any interrupts 
MOV @PRIO7,RO 
TRAP C$SPRI 
from the DRX11-C 
Jid we get an interrupt ? 
skip branch if error insert selected 
branch if we t an interrupt 
else print “NO INTERRUPT * 
TRAP CSERSOFT 
. WORD 2000 


ee ae CS Ce 


ee ee wee 


N14 
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| TEST 20 - External Clock Test. 


057610 
057612 
057614 
057614 


7004 057616 
057624 
7006 057632 
057640 
7008 057644 
7009 057650 
7010 057654 
057662 
057666 
7013 057670 
057670 
057672 
057674 
057676 
057700 
057700 
057700 


057702 
057706 
057710 
7019 057714 
7020 057722 
057724 


057730 
057730 
057732 


057734 
7029 057742 
7030 057750 


057756 
060011 
060060 


7039 060142 
060142 
060142 


060011 
023404 


104406 
012737 


104401 


002234 


003032 
003032 


057322 


003020 
123002 
003022 


003020 


000010 


ee EE ee ee ee 


«WORD E2000 
-WORD ECHK 
80$: CKLOOP ; branch to BGNSEG if loop on error set 
TRAP C$CLP1 
MOV @ACS!COUT!ECE ,GOOD ; get expected ACS contents 
MOV @ACS ,@ORXDBR ; address the ACS register 
MOV @0RXDBR ,BAD ; and get the actual contents 
MOV BAD ,RO + get the contents into RO 
BIC #tC<UNI!CMP> ,RO ; and isolate uncertain bits 
BIS RO,GOOD ; set them in GOOD if they are set 
CMP BAD ,GOOD ; contents correct ? 
CALL INSERT ; skip branch if error insert selected 
BEQ 90$ ; branch if ACS is OK 
ERRSOFT 2001,E2001,EGB ; else print "ACS INCORRECT” 
TRAP CSERSOFT 
-WORD 2001 
-WORD €2001 
-WORD EGB 
90$: ENDSEG 
10000$: 
TRAP CSESEG 
TST QVMODE ; is quick verify mode selected ? 
BNE 100$ ; if yes, exit test 
INC ITRCNT ; else, increment iteration counter 
CMP ITRCNT, #10 ; iterations completed ? 
BEQ 100$ ; if yes, branch 
JMP 20$ ; else do another iteration 
100$: EXIT TST 
TRAP CSExIT 
-WORD L10055-. 
; Outputs : Mode Channel a, 9 
; (mV 
T20TAB: .WORD QO, QO, 1000. ; teble for outputs 
.WORD OQ, 1, 2000. 
. WORD Re 2. 3000. 
-NLIST BEX 
TSHD20::.ASCIZ /s#S2s8AEXTERNAL CLOCK TESTSN/ 
E2000: ASCIZ /NO INTERRUPT AFTER EXTERNAL CLOCK TEST/ 
E2001: ASCIZ /ACS REGISTER INCORRECT AFTER EXTERNAL CLOCK TEST/ 
LIST BEX 
EVEN 
ENDTST ‘ 
L10055: 
TRAP CSETST 


SEQ 0182 


Bis 
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_ TEST 21 


i 


- Linearity Test. 


005037 


104421 
032700 
001410 


012746 
012746 
010600 
104417 
062706 


005037 
052777 
004737 
004737 


012701 
012777 
052777 
012777 
052777 
010177 
052777 
012777 
052777 
012777 
052777 


012702 
004737 
005302 
001374 


104404 
012777 
052777 
012777 
052777 


003030 


001000 


122414 


122400 
122364 
122364 
122350 


122336 
122336 
122322 
122322 
122306 


122270 

22254 
122254 
122240 





-SBTTL TEST 21 - Linearity Test. 


3ee 


results ine l 


channel O is made. 

BGNTST 
CLR STAFLG 
RFLAGS RO 
BIT @PNT ,RO 
BEQ 10$ 
PRINTF #TSHD21 

10$: CLR ITRCNT 
BIS RES ,@DRXSCR 
JSR PC,WTSO0O0 
JSR PC,WTSO00 

20%: MOV OOBF !7777,R1 
MOV CTA, @ORXDBR 
BIS @FNCTO,@DRXSCR 
MOV 9CWR!15.,3D0RXDBR 
BIS @FNCTO,@DRXSCR 
MOV R1,30RXDBR 
BIS oFNCTO,@ORXSCR 
MOV @CWR , BDRXDBR 
BIS oFNCTO,@DRXSCR 
MOV 97770, aDRXDBR 
BIS OFNCTO,@DRXSCR 
MOV #12,R2 

30$: JSR PC,WTS500 
DEC R2 
BNE 30$ 

40$: BGNSEG 
MOV CTA, 3DRXDBR 
BIS oFNCTO,@ORXSCR 
MOV @#CWR!15.,@DRXDBR 
BIS oFNCTO,@DRXSCR 


T21:: 

; flag test has been run since start 

; read operator flags 
TRAP CS$RFLA 

; print test headers ? 

; if not, branch 

; else, print test header 
MOV #TSHD21,-(SP) 
MOV #1,-(SP) 
MOV SP ,RO 
TRAP CS$PNTF 
ADD #4 ,SP 


= © © oF 


- oF © © © @F oF oF oe oe oF 


SEQ 0183 


This checks the linearity of the AAFO1-A. Each possible value is 
output to channel 15. For each of these outputs, two outputs are 
made on channel 0, the first using ea value N bits greater than 
that on channel 15, and the second, N bits lower. N is equal 

to the value entered as “TOLERANCE” in the startup software 
questions. A check is made that the first output on channel 0 
ical O from the comperator logic, and that the 
second results in a 1. All outputs are made by program using the 
DBF register. At the renge boundaries, only one comparison with 


clear iteration co: 'nter 
reset the DRX11-C 

wait for 1 millisecond 
(2500 microseconds) 


initiealise output pattern 
address control word 0 

in CTA register 

set up to output on channel i5 
transfer to CWR 

output the data 

to the DBF register 

set up to output to channel 0 
output slightly diferent data 
to stop the comparator oscillating 
too much 


wait 5 milliseconds 
for the comparator to stop 
oscillating 


TRAP 
address control word 0 
in CTA register 
set up to output on channel 15 
transfer to CWR 


CsBSEG 


eee eee ee ee ee Ce ——_ 


C15 
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TEST 21 


- Linearity Test. 


010177 
052777 


010102 
063792 
032702 
001046 
012777 
052777 
010277 
052777 
012737 
004737 
012777 
017737 
013700 
042700 
050037 
023737 
004737 
001404 


104457 
004064 
060750 
023622 


104406 


010102 
163702 
103446 
012777 
052777 
010277 
052777 
012737 
004737 
012777 
017737 
013700 
042700 
050037 
023737 
004737 
001404 


104457 
004064 
060750 
023622 


104405 


005301 
020127 


122242 
000001 


000000 


122226 


122212 
122176 


122164 
003020 


122152 
003022 


003020 


122064 
122050 


122036 
003020 


122024 
003022 


003020 





50$: 


60$: 


BEQ 


ENDSEG 


DEC 
CMP 


R1,30RXDBR 
@FNCTO, @ORXSCR 


R1,R2 

TOL ,R2 

#10000 ,R2 

50$ 
@CWR , BORXDBR 
@FNCTO,@ORXSCR 
R2, BORXDBR 
oFNCTO, @DRXSCR 
@ACS ,GOOD 

PC ,WTSOO 
@ACS , BORXDBR 
@DRXDBR , BAD 
BAD ,RO 

#tCUNI ,RO 

RO ,GOOD 

BAD ,GOOD 
INSERT 

50$ 
2100,€2100,EGBCC 


R1,R2 

TOL ,R2 

60$ 
@CWR , BRXDBR 
@FNCTO,@DRXSCR 
R2,@0RXDBR 
#FNCTO, @DRXSCR 
@ACS!CMP ,GOOD 
PC ,WTSOO 
#ACS , @ORXDBR 
@DRXDBR , BAD 
BAD ,RO 

#tCUNI ,RO 
RO,GOOD 
BAD , GOOD 
INSERT 

60$ 
2100,E€2100,EGBCC 


R1 
R1, #DBF 


oF © © © @e ot ee Ge @e ©F @e Se ee oe oe oe oe oe 


output the data 
to the DBF register 


get the channel 15 data 

add tolerance 

too high for testing ? 

if yes, skip to next section 

else, set up to output on channel 0 
transfer to CWR 

output the date 

to the DBF register 

get expected ACS contents 

wait 500 microseconds 

address the ACS register 

and get the actual contents 

get the contents into RO 

and isolate uncertain bits 

set them in GOOD if they are set 
contents correct ? 

skip branch if error insert selected 


branch if ACS is OK 
else print “ACS INCORRECT” 
TRAP CSERSOFT 
. WORD 2100 
. WORD E2100 
. WORD EGBCC 
branch to BGNSEG if loop on error set 
TRAP CS$CLPl 


get the channel 15 data 

subtract tolerance 

branch if too low 

else, set up to output on channel 0 
transfer to CWR 

output the data 

to the DBF register 

get expected ACS contents 

wait 500 microseconds 

address the ACS register 

and get the actual contents 

get the contents into RO 

and isolate uncertain bits 

set them in GOOD if they are set 
contents correct ? 

skip branch if error insert selected 


branch if ACS is OK 
else print "ACS INCORRECT” 
TRAP CSERSOFT 
. WORD 2100 
. WORD E2100 
. WORD EGBCC 
10000$: 


TRAP CSESEG 


next output value 
all values done ? 


SEQ 0184 
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7137 
7138 
7139 
7140 
7141 
7142 
7143 
7144 
7145 
7146 


7147 
7148 
7149 
7150 
7151 
7152 
7153 
7154 


7155 





- Linearity Test. 


060666 


060670 
060674 
060676 
060702 
060710 
060712 


060716 
060716 
060720 


060722 
060750 


061022 
061022 
061022 


002222 


005737 
001010 
005237 
023727 
001402 
000137 


104432 
000102 


045 
101 


104401 


002234 


003032 
003032 


060222 


123 
103 


a 


D1i5 


SEQ 0185 
BGE 40$ ; if not, do the next 
TST QVMODE + iS quick verify mode selected ? 
BNE 70$ ; if yes, exit test 
INC ITRCNT ; else, increment iteration counter 
000004 CMP ITRCNT , #4 ; iterations completed ? 
BEQ 70$ ; if yes, branch 
JMP 20$ ; else do another iteration 
70$: EXIT TST 

TRAP CSEXIT 

. WORD L10056-. 
-NLIST BEX 


062 TSHD21::.ASCIZ /#S2SALINEARITY TESTSN/ 

123. £2100: .ASCIZ /ACS INCORRECT AFTER DBF OUTPUT COMPARISON/ 
yoo BEX 
-EVEN 


ENDTST 
L10056: 
TRAP CSETST 


a 


ee rr ee 


ee eee 


E15 
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7157 
7158 
7159 
7160 
7161 
7162 
7163 
7164 
7165 
7166 
7167 
7168 
7169 
7170 

7171 061024 
061024 

7172 061024 005037 
7173 061030 

104421 

032700 

001410 


012746 
012746 
010600 
104417 
062706 


005037 
052777 
004737 
004737 


013701 
052701 
010177 
052777 


012737 
012737 
012703 


003030 


7174 061032 001000 
7175 061036 
7176 061040 
061602 


000001 


000004 


003032 
000040 
026106 
026106 


002230 
040000 
121516 
000001 


001777 
003777 
012000 


121534 


121502 


003040 
003042 


104404 
012777 
052777 
012777 
052777 
012777 
052777 
012777 
052777 
012777 
052777 


012777 
012777 


020000 
000001 
030000 
000001 
020001 
000001 
030017 
000001 
020000 
000001 


010001 
000001 


121460 
121444 
121444 
121430 
121430 
121414 
121414 
121400 
121400 
121364 


121364 
121350 


.SBTTL TEST 22 - DMA Output Comparison Test. 


3+ 


This checks that conversions can be made under DMA control. The 
control table is set up to perform 2 outputs, on channels 0 and 
15. Ar. internal buffer is set up to contain the data 1777 and 
3777. These are selected so that the ACS CMP bit wil be set. 


initiated by setting the GO bit of the ACS register. After the 


DMA has completed, the ACS register CMP bit is checked to be 


set. The test is then repeated but with the data words 


interchanged so that the ACS CMP bit is not set. 


BGNTST 


CLR 
RFLAGS 


BIT 
BEQ 
PRINTF 


10$: CLR 
BIS 
JSR 
JSR 


MOV 
BIS 
MOV 
BIS 


20$: MOV 
MOV 
MOV 


30$: BGNSEG 


MOV 
BIS 
MOV 
BIS 
MOV 
BIS 
MOV 
BIS 
MOV 
BIS 


MOV 
MOV 





STAFLG 
RO 


#PNT ,RO 
10$ 
#TSHD22 


ITRCNT 
#RES , @DRXSCR 
PC,WTS00 
PC,WTSOO 


CTIME,R1 
#PCR,R1 
R1,90RXDBR 
#FNCTO,@DRXSCR 


#1777 ,BUFOUT 
#3777 ,BUFOUT+2 
#ACS!CMP ,R3 


#CTA, IORXOBR 
#FNCTO,@D0RXSCR 
#CWR , IDRXDBR 
#FNCTO,@DRXSCR 
#CTA!1,@0RXDBR 
#FNCTO, @DRXSCR 
#CWR!15.,@DRXDBR 
#FNCTO,@DRXSCR 
#CTA,@DRXDBR 
#FNCTO, @ORXSCR 


#ACS!GO,@DRXDBR 
#FNCTO,@DRXSCR 


3 
; 
; The DRX11-C is then set up for a 2 word DMA and conversions are 
3 


SEQ 0186 
T2e:: 
; flag test has been run since start 
; read operator flags 
TRAP C$RFLA 
; print test headers ? 
; if not, branch 
; else, print test header 
MOV #TSHD22,-CSP) 
MOV #1,-CSP) 
MOV SP ,RO 
TRAP C$PNTF 
ADD #4 ,SP 


clear iteration counter 
reset the DRX11-C 

wait for 1 millisecond 
(2*500 microseconds) 


get the selected conversion time 
address the PCR 

and enter the conversion time 
transfer to PCR 


set up date for DMA 
1777 and 3777 
expected ACS contents 


TRAP 
address the CTA to CWR O 
and transfer to the CTA 
set up for channel 0 
and transfer to CWR 0 
address the CTA to CWR 1 
and transfer to the CTA 
set up for channel 15 
and transfer to CWR 1 
address the CTA to CWR O 
and transfer to the CTA 


C$BSEG 


set up to start the conversions 
enable conversions and clear the SCR 





eee eceee-~eer cs ey eS LL LD LL LT OD LD 


eee ee 
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7206 061256 012777 000000 121344 MOV #BAR1, @ORXCOR 
7207 061264 012777 003040 121340 MOV #BUF OUT , ADRXADR 
7208 061272 012777 000400 121330 MOV #WCR1, @DRXCOR 
7209 061300 012777 177776 121324 MOV #-2, BDRXADR 
7210 061306 012777 020000 121314 MOV #RUN, DRXCOR 
211 
7212 061314 013701 002230 MOV CTIME,R1 
7213 061320 005002 CLR R2 
7214 061322 004737 027776 JSR PC ,MUL 
7215 061326 000002 > 
7216 061330 004737 030072 JSR PC,DIV 
7217 061334 000175 125. 
7218 
7219 061336 005701 40$: TST R1 
7220 061340 001404 BEQ 60$ 
7221 061342 005301 50$: DEC R1 
7222 061344 004737 026114 JSR PC,WT25 
7223 061350 000772 BR 40$ 
7224 061352 005702 60$: TST R2 
7225 061354 001402 BEQ 70$ 
7226 061356 005302 DEC R2 
7227 061360 000770 BR 50$ 
7228 
7229 061362 012737 100600 003020 703: MOV #ATT!STATO!RDY, GOOD 
7230 061370 017737 121232 003022 MOV @DRXSCR, BAD 
7231 061376 023737 003022 003020 CMP BAD , GOOD 
7232 061404 004737 026306 CALL INSERT 
7233 061410 001404 BEQ 80$ 
7234 061412 ERRSOFT 2200,£2200,EGB 
061412 104457 
061414 004230 
061416 061644 
061420 023416 
7235 061422 80$: CKLOOP 
061422 104406 
7236 
7237 061424 010337 003020 MOV R3,GOOD 
7238 061430 012777 010000 121176 MOV #ACS, ADRXDBR 
7239 061436 017737 121172 003022 MOV @DRXDBR , BAD 
7240 061444 013700 003022 MOV BAD, RO 
7241 061450 042700 173777 BIC #tCUNI,RO 
7242 061454 050037 003020 BIS RO, GOOD 
7243 061460 023737 003022 003020 CMP BAD , GOOD 
7244 061466 004737 026306 CALL INSERT 
7245 061472 001410 BEQ 90$ 
7246 061474 013701 003040 MOV BUFOUT,R1 
7247 061500 013702 003042 MOV BUFOUT+2,R2 
7248 061504 ERRSOFT 2201,£2201,EGBCC 
061504 104457 
061506 004231 
061510 061726 
061512 023622 
7249 061514 90$: ENDSEG 
061514 
061514 104405 
7250 
| 7251 061516 020327 010000 CMP R3,#ACS 


=e © ee ee we se 


=e oe Se oe ee es ee we Se es oe oe 


SEQ 0187 


multiplex to BARI 
set up DMA address 
now select WCRI 

to DMA 2 words 
start the DMA 


get the conversion time 
high byte is zero 
multiply by 

the number of conversions 
divide by 

125 


loop until R1/R2 is zero 
wait 25 microseconds 


total timeout = number of conversions 
* conversion time * 2 


get expected SCR contents 
and actual contents 
are they the same ? 
skip branch if error insert selected 
branch if SCR is OK 
else print “SCR INCORRECT” 
TRAP CS$ERSOFT 


-WORD 2200 
-WORD E2200 
-WORD €EGB 


branch to BGNSEG if loop on error set 
TRAP C$CLP1 


get expected ACS contents 
address the ACS register 
and get the actual contents 
get the contents into RO 
and isolate uncertain bits 
set them in GOOD if they are set 
contents correct ? 
skip branch if error insert selected 
branch if ACS is OK 
channel O data 
channel 15 data 
else print "ACS INCORRECT” 
TRAP CSERSOFT 


-WORD 2201 
-WORD E2201 
-WORD EGBCC 


14000$: 
TRAP CsESEG 


CMP set test done ? 


ee ee ee 
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| 7252 061522 
7253 061524 
7254 061532 
7255 061540 
7256 061544 
7257 
7258 061550 
7259 061554 
7260 061556 
7261 061562 
7262 061570 
7263 061572 
7264 
7265 061576 

061576 
061600 
7266 
7267 
7268 061602 
7269 061644 
7270 061726 
7271 
7272 
7273 
7274 062000 
062000 
062000 
7275 
i 
! 


001412 
012737 
012737 
012703 
000137 


005737 
001010 
005237 
023727 
001402 
000137 


104432 
000200 


045 
104 
101 


104401 


003777 003040 
001777 003042 
010000 


061144 

002234 

003032 

003032 000010 

061124 
123 062 
122 130 
103 123 


100$: 


110$: 


TSHD22: : 
E2200: 
E2201: 


SEQ 0188 

BEQ 100$ ; if yes, branch 
MOV #3777 ,BUFOUT ; else, set up data for DMA 
MOV #1777 ,BUFOUT+¢2 ; 3777 and 1777 
MOV #ACS,R3 ; flag that CMP should be clear 
JMP 30$ ; and do CMP clear test 
TST QVMODE ; is quick verify mode selected ? 
BNE 1103 ; if yes, exit test 
INC ITRCNT ; else, increment iteration counter 
CMP ITRCNT, #10 ; iterations completed ? 
BEQ 110$ ; if yes, exit test 
JMP 20$ ; else, do another iteration 
EXIT TST 

TRAP CS$EXIT 

-WORD L10057-. 
-NLIST BEX 
-ASCIZ /#S2sADMA OUTPUT COMPARISON TEST#N/ 
-ASCIZ /DRX11-C SCR INCORRECT AFTER DMA OUTPUT COMPARISON/ 
-ASCIZ /ACS INCORRECT AFTER DMA OUTPUT COMPARISON/ 
-LIST BEX 
.EVEN 
ENDTST 

L10057: 
TRAP CSETST 


—-—-—- - ———_-— --— —F 


ee ee 


H1i5 
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TEST 23 - Memory Transfer Conversion test. 


776 -SBTTL TEST 23 - Memory Transfer Conversion test. 
7279 +4 
7280 ; This tests DMA conversions in memory transfer mode. An internal 
7281 ; buffer is set up to contain the following control and data 
7282 ; words : 
7283 3 
7284 ; Word Contents Description 
7285 ; 
7286 ; 0 0000 Control word, mode 0, channel 0 
7287 ; 1 0000 Date, 9.9976V unipolar or 9.9951V bipolar 
7288 : 2 0001 Control word, mode 0, channel 1 
7289 ; 3 Lvve Data, 7.5000V unipolar or 5.0000V bipolar 
7290 ; 4 0201 Control word, mode 2, channel 1 
7291 ; 5 0201 Control word, mode 2, channel 1 
7292 3 6 0002 Control word, mode 0, channel 2 
7293 ; 7 3777 Data, 5.0000V unipolar or 0.0000V bipolar 
7294 ; 8 0003 Control word, mode 0, channel 3 
7295 3 9 5777 Data, 2.5000V unipolar or -5.0000V bipolar 
7296 5 20 0303 Control word, mode 3, channel 3 
7297 oe 0004 Control word, mode 0, channel 4 
7298 : a2 7776 Data, 0.0024V unipolar or -9.9951V bipolar 
7299 ‘ is 0404 Control word, mode 4, channel 4 
7300 s ae 0005 Control word, mode 0, channel 5 
7301 ; is 7777 Data, 0.0000V unipolar or -10.0000V bipolar 
7302 s 16 0605 Control word, mode 6, channel 5 
7303 :. af 0017 Control word, mode 0, channel 15 
7304 ; 18 3777 Data, 5.0000V unipolar or 0.0000V bipolar 
7305 ¢ 29 0717 Control word, mode 7, channel 15 
7306 ; 
7307 ; These are selected to test combinations of CWR modes and 
7308 ; channels so that at the end of the conversion the ACS CMP bit 
7309 ; will be set. 
7310 : 
7311 ; The DRX11-C is set up to start a 20 word DMA. The GO and MET 
7312 ; bits of the ACS register are then set. After the DMA has 
7313 ; completed, the ACS register MET and CMP bits are checked to be 
7314 ; set. 
7315 3 
7316 ; The test is then repeated but with the data words for channels 0 
7317 ; and 15 complemented so that after the conversions the ACS CMP 
7318 ; bit is not set. 
7319 s-- 

| 

! 


a | eee ee 


115 
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7321 


7322 
7323 


7324 


7325 
7326 


7327 


7341 
7342 


7353 
7354 
7355 
7356 


062002 
062002 
062002 
062006 
062006 
062010 
062014 
062016 
062016 
062022 
062026 
062030 
062032 


062036 
062042 
062050 
062054 


062060 
062064 
062070 
062074 


062102 
062106 


062112 
062112 
062114 
062122 
062130 
062136 
062142 
062150 
062156 


062164 
062170 
062172 
062176 
062200 
062204 


062206 
062210 
062212 
062214 
062220 
062222 
062224 
062226 
062230 


062232 
062240 
062246 


005037 


104421 
032700 
001410 


012746 
012746 
010600 
104417 
062706 


005037 
052777 
004737 
004737 


013701 
052701 
010177 
052777 


012703 
012704 


104404 
012777 
012777 
012777 
010377 
012777 
012777 
012777 


013701 
005002 
004737 
000024 
004737 
000175 


005701 
001404 
005301 
004737 
000772 
005702 
001402 
005302 
000770 


012737 
017737 
023737 


003030 


001000 


062544 
000001 


900004 


003032 
000040 
026106 
026106 


002230 
040000 
120540 
000001 


062424 
012002 


010003 
000001 
000000 
120470 
000400 
177754 
020000 


002230 
027776 
030072 


026114 


100600 
120362 
003022 


10$: 


120556 


120524 


20$: 


120512 
120476 
120472 


120460 
120454 
120444 


30$: 
40$: 


50$: 


003020 60$: 


003022 
003020 





BGNTST 


BIT 
PRINTF 


CLR 
BIS 
JSR 
JSR 


MOV 
BIS 
MOV 
BIS 


MOV 
MOV 


BGNSEG 


MOV 
MOV 


STAFLG 
RO 


#PNT ,RO 
10$ 
#TSHD23 


ITRCNT 
#RES , ARXSCR 
PC,WTSOO 
PC,WTSOO 


CTIME,R1 
#PCR,R1 
R1,30RXDBR 
#FNCTO,@DRXSCR 


#T23TA1,R3 
#ACS!CMP!MET,R4 


#ACS!MET!GO,@0RXDBR 
#FNCTO,@DRXSCR 
#BAR1,@DRXCOR 
R3,@DRXADR 
#WCR1,@DRXCOR 
#-20.,@DRXADR 
#RUN , DDRXCOR 


CTIME,R1 
R2 
PC,MUL 


PC,OIV 


#ATT!STATO!RDY,GOOD 
@DRXSCR,BAD 
BAD ,GOOD 


T23:: 
flag test has been run since start 
read operator flags 
TRAP C$RFLA 


print test headers ? 

if not, branch 

else, print test header 
MOV 


MOV #1,-CSP) 
MOV SP ,RO 
TRAP CS$PNTF 
ADD #4 ,SP 


clear iteration counter 
reset the DRX11-C 

wait for 1 millisecond 
(2*500 microseconds) 


get the selected conversion time 
address the PC 

and enter the conversion time 
transfer to PCR 


set up address of first data buffer 
and expected ACS contents 


TRAP C$BSEG 
set up to start the conversions 
enable conversions and clear the SCR 
multiplex to BAR1 
set up DMA address 
now select WCR1 
to DMA 20 words 
start the DMA 


get the conversion time 
high byte is zero 
multiply by 

the number of conversions 
divide by 

125 


loop until R1/R2 is zero 
wait 25 microseconds 


total timeout = number of conversions 
* conversion time * 2 


get expected SCR contents 
and actual contents 
are they the same ? 


SEQ 0190 


#TSHD23, -( SP) 
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| 7370 062254 
7371 062260 
7372 062262 

062262 
062264 
062266 
062270 
7373 062272 
062272 


7375 062274 
7376 062300 
7377 062306 
7378 062314 
7379 062320 
7380 062324 
7381 062330 
7382 062336 
7383 062342 
7384 062344 
062344 
062346 
062350 
062552 
7385 062354 
062354 
062354 


7387 062356 
7388 062362 
7389 062364 
7390 062370 
7391 062374 


7393 062376 
7394 062402 
7395 062404 
7396 062410 
7397 062416 


7399 062420 
062420 
062422 


7403 062424 
7404 062426 
7405 062430 
7406 062432 
7407 062434 
7408 062436 
7409 062440 
7410 062442 
7411 062444 
| 7412 062446 
| 7413 062450 


004737 
001404 


104457 
004374 
062613 
023416 


104406 


010437 
012777 
017737 
013700 
042700 
050037 
023737 
004737 
001404 


104457 
004375 
062702 
023416 


104405 


020327 
001405 
012703 
012704 
000646 


005737 
001006 
005237 
023727 
001235 


104432 
000350 


000000 
000000 
000001 
001777 
000201 
000201 
000002 
003777 
000003 
005777 
000303 


026306 


003020 
010000 
120322 
003022 
173777 
003020 
003022 
026306 


120326 
003022 


003020 


062474 
062474 
010002 
002234 


003032 
003032 000010 


70$: 


80$: 


90$: 


100$: 


CALL 
BEQ 
ERRSOF T 


CKLOOP 


ERRSOFT 


ENDSEG 


CMP 
BEQ 
MOV 
MOV 
BR 


TST 
BNE 
INC 
CMP 
BNE 


EXIT TST 


J1i5 


INSERT 
70$ 
2300 ,£2300,EGB 


R4,GO0D 
#ACS , ADRXDBR 
@DRXDBR , BAD 
BAD ,RO 
#tCUNI ,RO 
RO,GOOD 


‘ BAD,GOOD 


INSERT 
80$ 
2301,£2301,EGB 


R3,#T23TA] 
90$ 
#T23TA2,RS 
#ACS!MET,R4 
20$ 


QVMODE 
100$ 
ITRCNT 
ITRCNT, #10 
20$ 


; Table for first half of test. 


T23TAL: 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


0000 
0000 
0001 
1777 
0201 


; Data, 

3 

: 

; 
0201 ; 

F 

3 


Data, 


0002 
3777 
0003 
5777 
0303 


Data, 
Data, 


Control word, 


SEQ 0191 


; skip branch if error insert selected 


; branch if SCR is OK 

; else print "SCR INCORRECT” 
TRAP CSERSOFT 
. WORD 2300 
. WORD E2300 
. WORD EGB 

; branch to BGNSEG if loop on error set 
TRAP CS$CLP1 


get expected ACS contents 
address the ACS register 
and get the actual contents 
get the contents into RO 
and isolate uncertain bit 
set it in GOOD if 
contents correct ? 
skip branch if error insert selected 


it is set 


branch if ACS is OK 
else print "ACS INCORRECT” 
TRAP CSERSOFT 
. WORD 2301 
. WORD E2301 
. WORD EGB 
10000$: 
TRAP CSESEG 


; second pass done ? 

; if yes, branch 

; else set up alternate table address 
; new expected ACS contents 

; and do second pass 


; is quick verify mode selected ? 

; if yes, exit test 

; else, increment iteration counter 
; iterations completed ? 

; if not, do another iteration 


TRAP 
. WORD 


CSEXIT 
L10060-. 


mode 0, channel 0 
unipolar or 9.9951V bipolar 


Control word, mode 0, channel 1 
7.5000V unipolar or 5.0000V bipolar 
Control word, mode 2, channel 1 
Control word, mode 2, channel 1 
Control word, mode 0, channel 2 
5.0000V unipolar or 0.00U0V bipolar 
Control word, mode 0, channel 3 
2.5000V unipolar or -5.0000V bipolar 
Control word, mode 3, channel 3 


ae 


— Ee oe een =o 
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, TEST 23 - Memory Transfer Conversion test. 


062452 000004 
062454 007776 
062456 000404 
062460 000005 
7418 062462 007777 


| 

| 7414 

| 7419 062464 000605 
' 


7415 
7416 
7417 


7420 062466 000017 
7421 062470 003777 
7422 062472 000717 

7423 

7424 ; 


7425 
7426 000000 T23TA2: 
7427 003777 
7428 000001 
7429 001777 
7430 000201 
7431 000201 
7432 000002 
7433 003777 
7434 000003 
7435 005777 
7436 000303 
7437 062522 000004 
7438 062524 007776 
7439 062526 000404 
7440 062530 000005 
007777 


062552 
062534 000605 
000017 


062536 
062540 000000 
000717 


062542 


062474 
062476 
062500 
062502 
062504 
062506 
062510 
062512 
062514 
062516 
062520 


7441 
7442 
7443 
7444 
7445 
7446 
7447 
7448 
7449 
7450 
7451 
7452 
7453 
7454 


123 
122 
103 


045 
104 
101 


062544 
062613 
062702 


130 E2300: 
123. E2301: 


062772 
062772 
062772 104401 


7455 


062 TSHD23:: 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
- WORD 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


-NLIST 
.ASCIZ 
-ASCIZ 
-ASCIZ 
-LIST 
-EVEN 


ENDTST 


0004 
7776 
0404 
0005 
7777 
0605 
0017 
3777 
0717 


0000 
3777 
0001 
1777 
0201 
0201 
0002 
3777 
0003 
$777 
0303 
0004 
7776 
0404 
0005 
7777 
0605 
0017 
0000 
0717 


BEX 


K1i5 


Control word, mode 0, channel 4 

Data, 0.0024V unipolar or -9.9951V bipolar 
Control word, mode 4, channel 4 

Control word, mode 0, channel 5 

Data, 0.0000V unipolar or -10.0000V bipolar 
Control word, mode 6, channel 5 


; Control word, mode 0, channel 15 


Data, 5.0000V unipolar or 0.0000V bipolar 


; Control word, mode 7, channel 15 


Table for second half of test. 


Control word, mode 0, channel 0 

Data, 5.0000V unipolar or 0.0000V bipolar 
Control word, mode 0, channel 1 

Data, 7.5000V unipolar or 5.0000V bipolar 
Control word, mode 2, channel 1 

Control word, mode 2, channel 1 

Control word, mode 0, channel 2 

Data, 5.0000V unipolar or 0.0000V bipolar 
Control word, mode 0, channel 3 

Data, 2.5000V unipolar or -5.0000V bipolar 
Control word, mode 3, channel 3 

Control word, mode 0, channel 4 

Data, 0.0024V unipolar or -9.9951V bipolar 
Control word, mode 4, channel 4 

Control word, mode 0, channel 5 

Data, 0.0000V unipolar or -10.0000V bipolar 
Control word, mode 6, channel 5 

Control word, mode 0, channel 15 

Data, 9.9976V unipolar or 9.9951V bipolar 
Control word, mode 7, channel 15 


/%S2SAMEMORY TRANSFER CONVERSION TEST#N/ 
/ORX11-C SCR INCORRECT AFTER MEMORY MODE DMA CONVERSION/ 
7ACS REGISTER INCORRECT AFTER MEMORY MODE DMA CONVERSION/ 


BEX 


L10060: 


TRAP CSETST 


SEQ 0192 


Lis 
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TEST 24 - Calibration Test. 


7457 
7458 
7459 
7460 
7461 
7462 
7463 
7464 
7465 
7466 
7467 
7468 
7469 
7470 
7471 
7472 
7473 
7474 
7475 
7476 
7477 
7478 
7479 
7480 
7481 
7482 
7483 
7484 
7485 
7486 
7487 
7488 
7489 
7490 
7491 
7492 
7493 
7494 
7495 
7496 
7497 


=e =e ee oe we Se @F Se we Ss Se ee Ge es Se Se Ge Ss Gs Ss Se Ss Se Gs SH SS Os Se Se Ge SH Ss Se Ss Ge Se ae 


TT meee eee -—-—™ 


SBTTL TEST 24 - Calibration Test. 


*¢ 


; This allows the AAFO1-A analogue output to be calibrated. ACS 


bit 11 is first read and a message printed indicating whether 
the module is switched to unipolar or bipolar mode Eg. : 


CALIBRATING FOR UNIPOLAR MODE 


In bipolar mode, each of the channels selected in the startup 
questions is loaded with the value 7777 and the user is asked to 
check that the DVM reads -10.000 volts +/- 4.88 millivolts on 
the selected channels. If the output is not within this 
tolerance, the user is asked to adjust the offset potentiometer 
RV1 until the outputs are correct. Each channel is then loaded 
with the value 0000 and the user asked to check that the DVM now 
reads 9.9951 volts +/- 4.88 millivolts. If the output is not 
within this tolerance, he is asked to adjust the gain 
potentiometer RV2 until the output is correct. 


In unipolar mode, each of the channels selected in the startup 
questions is loaded with the value 7777 and the user is asked to 
check that the DVM reads 0.0000 volts +/- 4.88 millivolts on the 
selected channels. If the output is not within this tolerance, 
the user is asked to adjust the DAC OFFS potentiometer RV1 until 
outputs are correct. Each channel is then loaded with the value 
0000 and the user asked to check that the DVM now reads 9.9976 
volts +/- 4.88 millivolts. If the output is not within this 
tolerance, he is asked to adjust the gain potentiometer RV2 
until the output is correct. 


All outputs are made directly through the DBF register. 


After the module has been tested and/or calibrated, the 
following message is output describing how to continue running 
the diagnostic without the calibration test : 


THIS TEST CAN BE DISABLED BY ABORTING THE TEST AND SETTING THE 
"UAM” FLAG. EG. “CONTROL C” THEN “CONTINUE/FLAGS:UAM". 
TYPE “CARRIAGE RETURN TO CONTINUE OR "CONTROL C” TO ABORT (A) ? 


SEQ 0193 


ee ee we 


M15 
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TEST 24 
7499 


7500 
7501 


7502 
7503 
7504 


7505 
7506 


7507 
7508 


7509 


7510 
7511 
7512 


7513 
7514 
7515 
7516 
7517 
7518 
7519 
7520 
7521 
7522 
7523 
7524 
7525 
7526 
7527 
7528 
7529 
7530 
7531 
7532 
7533 
7534 


- Calibration Test. 


062774 
062774 
062774 
063000 
063000 
063002 
063006 
063010 
063010 
063012 
063012 
063014 
063014 
063020 
063024 
063026 


005037 


104421 
032700 
001425 


104450 
103011 


012746 
012746 
010600 
104417 
062706 
000416 


012746 
012746 
010600 
104417 
062706 


104432 
002300 


104450 
103402 


104432 
002270 


005037 
012705 
052777 
004737 
004737 


012701 
013702 
052702 
013703 
052703 
010204 
012777 
052777 


005737 
001531 


010546 


003030 


001000 


064036 
000001 


000004 


064066 
000001 


000004 


003032 
000001 
000040 
026106 
026106 


007777 
002224 
030000 
002226 
030000 


020000 
000001 


003026 


117516 


117460 
117444 





10$: 


20$: 


39$: 


40$: 


BGNTST 


CLR STAFLG 
RFLAGS RO 


BIT #PNT ,RO 
BEQ 20$ 
MANUAL 
BNCOMPLETE 10$ 


PRINTF #TSHD24 


BR 30$ 
PRINTF #TSNS24 


EXIT TST 

MANUAL 

BCOMPLETE 30$ 

EXIT TST 

CLR ITRCNT 

MOV #1,R5 

BIS #RES , BRXSCR 
JSR PC,WTSO0O 

JSR PC,WTSOO 

MOV #DBF !7777,R1 
MOV FSTCHN,R2 
BIS @CWR ,R2 

MOV LSTCHN,R3 
BIS @CWR ,R3 

MOV R2,R4 

MOV @CTA,@ORXDBR 
BIS #FNCTO,@DRXSCR 
TST MODE 

BEQ 100$ 


; 
; Bipoler calibration 


PRINTF #BICAL,RS 


=s © © ©e ee ee Se oe 


T24:: 
flag test has been run since start 
read operator flags 
TRAP CS$RFLA 
print test headers ? 
if not, branch 
is manual intervention allowed ? 
TRAP C$MANI 
if not, branch 
BCC 10$ 
else, print test header 
MOV #TSHD24, 
MOV #1,-CSP) 
MOV SP ,RO 
TRAP CS$PNTF 
ADD 04,SP 


and start the test 
print "TEST DISABLED BY UAM” 


MOV 

MOV #1,-(SP) 

MOV SP,RO 

TRAP CS$PNTF 

ADD #4,SP 
and skip the test 

TRAP CSEXxIT 

. WORD L10061-. 
manual intervention allowed ? 

TRAP C$MANT 
if yes, branch 

BCS 30$ 
else skip the test 

TRAP CS$EXIT 

. WORD L10061-. 


clear iteration counter 
initialize pass counter 
reset the DRX11-C 

wait for 1 millisecond 
(2*500 microseconds) 


initialize output pattern 

save first selected channel 

for CWR register in R2 

save last selected channel 

for CWR register in R3 

start with first selected channel 
address control word 0 

in CTA register 


module in unipolar mode ? 
if yes, branch 


print "BIPOLAR MODE” 
MOV 


RS, -(SP) 


SEQ 0194 


-(SP) 


#TSNS24, -CSP) 


N15 
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, TEST 24 - Calibration Test. 


063172 
063176 


7545 063264 


7562 063406 


012746 
012746 


010477 
052777 
010177 
052777 
005204 
020403 
101763 


012746 


012746 
012746 
010600 
104417 
062706 
000756 


005001 
010204 
010477 
052777 
010177 
052777 
005204 
020403 
101763 


012746 
012746 
010600 
104417 
062706 


104443 
000404 


064147 
000002 
000006 
117416 


00000 
117404 
000001 


rw 


064225 
000001 


000004 


064034 


064401 
000001 


000004 


117274 


000001 


117262 
000001 


064503 
000001 


000004 


117402 
117370 


117260 
117246 


50$: 


60$: 


70$: 
80$: 


PRINTF 


GMANIL 


TST 
BNE 
PRINTF 


PRINTF 


GMANIL 


R4,@D0RXDBR 
#FNCTO, @ORXSCR 
R1,@0RXDBR 
#FNCTO, BORXSCR 


BI2,ANSWER,377,YES 


ANSWER 
70$ 
#BI3 


60$ 


R1 

R2,R4 

R4, @ORXDBR 
oFNCTO, @ORXSCR 
R1,@0RXDBR 
@FNCTO, @RXSCR 


oBI4 


BI2,ANSWER,377, YES 


_—_—— ee mm 


SEQ 0195 


@BICAL , -( SP) 
#2,-(SP) 

SP ,RO 

CSPNTF 

06 ,SP 


set up to output on selected channel 


transfer to CWR 
output the date 

to the DBF register 
next channel 

all channels done ? 
if not, do the next 


print "CHECK OUTPUTS = -10V" 
Vv 


ask 'IN TOLERANCE ?” 


10000$: 
in tolerance ? 
if yes, branch 
else print "ADJUST RV1" 


and ask again 


clear output value 


#611, -(SP) 


#813, -CSP) 
#1,-(SP) 
SP ,RO 
CS$PNTF 
04,SP 


start with first selected channel 
set up to output on selected channel 


transfer to CWR 
output the dete 

to the DBF register 
next channel 

ell channels done ? 
if not, do the next 


print “CHECK OUTPUTS = 9.9951V 
V 


ask “IN TOLERANCE ?” 


oB14,-(SP) 
@1,-(SP) 
SP ,RO 
CSPNTF 
04,SP 


C$GMAN 
10001$ 


B16 
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SEQ 0196 
_ TEST 24 - Calibration Test. 
063412 064034 WORD ANSWER 
063414 000130 WORD TSCODE 
063416 064324 WORD BI2 
063420 000377 WORD 377 
063422 10001$: 
7563 063422 005737 064034 TST ANSWER ; in tolerance ? 
7564 063426 0061142 BNE 160$ ; if yes, calibration is finished 
7565 063436 PRINTF #BI5 ; else print "ADJUST RV2” 
063430 012746 064605 MOV #BI5,-(SP) 
063434 012746 000001 MOV #1,-(SP) 
| 063440 010600 MOV SP ,RO 
063442 104417 TRAP C$PNTF 
063444 062706 000004 ADD #4,SP 
amt 063450 000756 BR 90$ ; and ask again 
3 
wy ; Unipoler calibration 
3 
7570 063452 100$: PRINTF #UNICAL,RS ; print "UNIPOLAR MODE” 
063452 010546 MOV RS,-CSP) 
063454 012746 064705 MOV #UNICAL , -( SP) 
063460 012746 000002 MOV #2,-(SP) 
063464 010600 MOV SP ,RO 
063466 104417 TRAP CS$PNTF 
_ 063470 062706 000006 ADD #6 ,SP 
1 
7572 063474 010477 117134 110$: MOV R4,3ORXDBR ; set up to output on selected channel 
7573 063500 052777 000001 117120 BIS #FNCTO,@ORXSCR ; trensfer to CWR 
7574 063506 010177 117122 MOV R1,@DRXDBR ; output the date 
7575 063512 052777 000001 117106 BIS #FNCTO,@DRXSCR ; to the DBF register 
7576 063520 005204 INC R4 ; next channel 
7577 063522 020403 CMP R4,R3 ; ell channels done ? 
7578 063524 101763 BLOS 110$ ; if not, do the next 
7579 
7580 063526 PRINTF #616 ; print “CHECK OUTPUTS = OV” 
063526 012746 064764 MOV #B16,-(CSP) 
063532 012746 000001 MOV #1,-(SP) 
063536 010600 MOV SP ,RO 
063540 104317 TRAP CS$PNTF 
063542 062706 000004 ADD #4,SP 
7561 063546 120$: GMANIL BI2,ANSWER,377, YES ; ask "IN TOLERANCE ?” 
063546 104443 TRAP C$GMAN 
063550 000404 BR 10002$ 
063552 064034 WORD ANSWER 
063554 000130 WORD T$CODE 
063556 064324 WORD BI2 
063560 000377 WORD 377 
063562 10002$: 
| 7582 063562 005737 064034 TST ANSWER ; in tolerance ? 
7583 063566 001011 BNE 130$ ; if yes, branch 
’ 7584 063570 PRINTF #613 ; else print “ADJUST RV1” 
063570 012746 064401 MOV #613, -(SP) 
063574 012746 000001 MOV #1,-(SP) 
063600 010600 MOV SP,RO 
063602 104417 TRAP CS$PNTF 
' 063604 062706 000004 ADD #4,SP 
a 063610 000756 BR 120$ ; and ask again 


ee 


a EC -- -- - - -- ee 


C16 
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TEST 24 


7598 


7613 


- Celibration Test. 


005001 
010204 
010477 
052777 
010177 
052777 
005204 
020403 
101763 


012746 


012746 
012746 
010600 
104417 
062706 
000756 


005737 
001011 
005237 
005205 
023727 
001402 
000137 


012746 
012746 
010600 
104417 
062706 


012746 
012746 
010600 
104417 
062706 
004737 


104432 


117012 


065061 


064034 


064605 
€00001 


000004 


002234 
003032 
003032 
063120 
065163 
000001 
000004 
065262 
000001 


000004 
026162 


116776 
116764 


000002 


130$: CLR R1 
MOV R2,R4 
140$: MOV R4, AORXDBR 
BIS @FNCTO, @ORXSCR 
MOV R1,@0RXDBR 
BIS #FNCTO,@DRXSCR 
INC R4 
CMP R4,R3 
BLOS 140$ 
PRINTF #6817 
1508: GMANIL BI2,ANSWER,377,YES 
TST ANSWER 
BNE 160$ 
PRINTF #BI5 
BR 150$ 
160$: TST QVMODE 
BNE 170$ 
INC ITRCNT 
INC R5 
CMP ITRCNT, #2 
BEQ 170$ 
JMP 40$ 
170$: PRINTF #618 


PRINTF #BI8A 


JSR 
EXIT TST 


PC,WRDY 


SEQ 0197 

reset the output value 

start with first selected channel 

set up to output on selected channel 

transfer to CWR 

output the date 

to the DBF register 

next channel 

ell channels done ? 

if not, do the next 

print "CHECK OUTPUTS = 9.9976V" 
MOV #B17,-CSP) 
MOV SP ,RO 
TRAP CS$PNTF 
ADD #4,SP 

ask “IN TOLERANCE ?” 
TRAP C$GMAN 
BR 10003$ 
. WORD ANSWER 
.WORD T$CODE 
.WORD BI2 
.WORD 377 

10003$: 
in tolerance ? 
if yes, branch 
; else print "ADJUST RV2” 

MOV #1,-(SP) 
MOV SP ,RO 
TRAP C$PNTF 
ADD 34,SP 

and ask again 

is quick verify mode selected ? 

if yes, exit test 

else, increment iteration counter 

and pass counter 

iterations completed ? 

if yes, branch 

else do another iteration 

print “YOU CAN CONTINUE...” 
MOV #B18,-CSP) 
MOV SP ,RO 
TRAP CS$PNTF 
ADD #4,SP 
MOV #BI8A,-CSP) 
MOV SP ,RO 
TRAP CS$PNTF 
ADD #4,SP 

wait for operator to continue 
TRAP CSEXIT 
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TEST 24 - Calibration Test. 


7616 
7617 
7618 
7619 
7620 
7621 
7622 
7623 
7624 
7625 
7626 
7627 
7628 
7629 
7630 
7631 
7632 
7633 
7634 
7635 
7636 


7637 


064032 001326 
064034 000001 


064036 045 


064066 045 
064147 045 
064225 045 
064324 101 
064401 045 
064503 045 
064605 045 
064705 045 
064764 045 
065061 045 
065163 045 
065262 045 
065360 

065360 


065360 104401 


045 BIl ASCIZ 
105 Ble: -ASCIZ 
045 BI3: -ASCIZ 
045 BI4: -ASCIZ 
04S BIS: -ASCIZ 
045 UNICAL: .ASCIZ 
045 BI6: -ASCIZ 
045 BI7: -ASCIZ 
045 BI8: -ASCIZ 
045 BI8A: -ASCIZ 
-LIST 
- EVEN 
ENDTST 


em — 


D16 


SEQ 0198 


. WORD L10061-. 
1 ; store for operator replies 


BEX 

/%S2SACALIBRATION TESTSN/ 

/#S28ACALIBRATION TEST - DISABLED BY “UAM” FLAG#SN/ 

/SNSACALIBRATING FOR BIPOLAR MODE - PASS #D1sN/ 

\SSNSACHECK EACH CHANNEL OUTPUT IS -10 VOLTS +/- 4.88 MILLIVOLTS\ 
ZARE THE OUTPUTS WITHIN THE ALLOWED TOLERANCE/ 

/SNSAADJUST OFFSET POTENTIOMETER RV1 UNTIL THE OUTPUTS ARE CORRECT/ 
\sSNSACHECK EACH CHANNEL OUTPUT IS 9.9951 VOLTS +/- 4.88 MILLIVOLTS\ 
/SNSAADJUST GAIN POTENTIOMETER RV2 UNTIL THE OUTPUTS ARE CORRECT/ 
/#NSACALIBRATING FOR UNIPOLAR MODE - PASS #D1sN/ 

\sSNSACHECK EACH CHANNEL OUTPUT IS 0 VOLTS +/- 4.88 MILLIVOLTS\ 
\sSNSACHECK EACH CHANNEL OUTPUT IS 9.9976 VOLTS +/- 4.88 MILLIVOLTS\ 
/SNSATHIS TEST CAN BE DISABLED BY ABORTING THE TEST AND SETTING/ 
\SNSATHE “UAM” FLAG. EG. “CONTROL C”, THEN CONTINUE/FLAGS:UAM"\ 

BEX 


L10061: 
TRAP CSETST 


ee ee ee oe em ee + ae —=_ =< 





E16 
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7639 .SBTTL TEST 25 - Selectable Output Test. 

7640 

7641 ioe 

7642 This test allows the user to select output patterns for 
| 
! 


SEQ 0199 


seit eaastiactacidicamiiniiiaiaieaiaale 


wees , monitoring with an oscilloscope. 

; 
aan ; The test begins by requesting the patterns for the test : 
6 ; 
Lap ; FIRST VALUE IN MILLIVOLTS (A) 0.0 ? 

; 
a ; SECOND VALUE IN MILLIVOLTS (A) 10000.0 ? 
650 H 
7651 ; After the user has typed in each value, the program prints out 
ae | ; the actual value which will be output and its equivalent bit 
653 8 
7654 3 
7655 3 
7656 H 
7657 3 
7658 3 
7659 ; 
7660 3 
7661 ; 
7662 3 
7663 H 
7664 ; 
7665 ,= 


pattern in octal. The program then asks : 
USE BOTH VALUES FOR EACH CHANNEL (L) N ? 


Two outputs are made on each of the channels selected in the 
startup questions. Either both values are output for each 
channel or the values switch with each new channel according to 
the response to the third question. The control table is set up 
to make all outputs except the last in mode 0. The last is in 
mode 1 to force a return back to the begining of the table. 
Continuous outputs are made with the DRX11-C in double buffer 
node until the user types control C. 
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| TEST 25 - Selectable Output Test. 


7667 065362 


7674 065420 
7675 065422 


7676 065442 


7677 065446 
7678 065452 
7679 065454 


7680 

7681 

7682 

7683 065460 
7684 065464 
7685 065466 
7686 065470 
7687 065474 
7688 065500 
7689 065504 


7690 065524 
7691 065530 


004737 
023236 
066544 
004737 
010137 
004737 


012746 
012746 
010600 
104417 
062706 
004737 


013746 
012746 
012746 
010600 
104417 
062706 
004737 
023270 
066557 
004737 
010137 


104421 
032700 
001426 
005737 
001411 


012746 
012746 
010600 
104417 
062706 
000417 


012746 
012746 
010600 
104417 
062706 


104432 
001560 
005737 
001002 


104432 
001546 


001000 


003030 


066572 
000001 


000004 


066630 
000001 


000004 


003030 


026710 


026510 
003034 
026352 


023323 
000001 


000004 
027640 


003034 
023341 
000002 


000006 
026710 


026510 
003036 


eee eEeEeE—eeEeEeEeEeEEeeEeE——eEeeeeee 


BGNTST 
RFLAGS 


BEQ 
PRINTF 


BR 
10$: PRINTF 


F16 


10 
#TSHD25 


30$ 
#TSNS25 


EXIT TST 


20$: TST 
BNE 


STAFLG 
30$ 


EXIT TST 


; Request the test parameters 


30$: JSR 
FVALQ 
N251 
JSR 
MOV 
JSR 
PRINTF 


JSR 
PRINTF 


PC,DECIN 


PC, ADCON 
R1,FVAL 
PC ,DACON 
#RNDOUT 


PC,DECOUT 
#OCTOUT ,FVAL 


PC,DECIN 


PC, ADCON 
R1,SVAL 


SEQ 0200 
T25:: 
read operator flags 
TRAP CS$RFLA 
print test headers ? 
if not, branch 
was test specifically selected ? 
if not, branch 
else, print test header 
MOV #TSHD25,-C(SP) 
MOV SP,RO 
TRAP CS$PNTF 
ADD #4,SP 
and start the tes 
print "TEST NOT SELECTED" 
MOV #TSNS25,-(SP) 
MOV SP ,RO 
TRAP C$PNTF 
ADD #4 ,SP 
and skip the test 
TRAP CS$EXIT 
. WORD L10062-. 
was test specifically selected ? 
if yes, branch 
else skip the test 
TRAP CS$EXIT 
. WORD L10062-. 
decimal input routine 
"FIRST VALUE" prompt 
store for first value string 
convert to 12 bit pattern 
and save first value 
convert back to actual output value 
"ROUNDED TC " 
MOV #RNDOUT , - (SP) 
MOV #1,-C(SP) 
MOV SP ,RO 
TRAP C$PNTF 
ADD #4 ,SP 
“annnn.nnn” 
"MILLIVOLTS - OCTAL VALUE nnnnn” 
MOV FVAL ,-(SP) 
MOV #OCTOUT, -( SF) 
MOV #2,-(SP) 
MOV SP ,RO 
TRAP C$PNTF 
ADD #6,SP 


decimal input routine 

“SECOND VALUE" prompt 

store for second value string 
convert to 12 bit pattern 

and save second value 


oe ee eee ae 


—— A ——— 


G16 
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i 
| TEST 25 - Selectable Output Test. 
| 7697 065574 004737 026352 
7698 065600 
065600 012746 023323 
065604 000001 
065610 
065612 
065614 000004 
7699 065620 027640 
7700 065624 


003036 
023341 
000002 


013746 
012746 
012746 
010600 
104417 
062706 


104443 
000404 
066542 
000130 
066705 
000377 


065624 
065630 
065634 
065640 
065642 
065644 
7701 065650 
065650 
065652 
065654 
065656 
065660 
065662 
065664 


7703 065664 
7704 065670 
7705 065674 
7706 065700 
7707 065706 
065706 
065712 
065716 
065720 
065722 


000006 


002230 
040000 
114734 
000001 


066746 
000001 


013701 
052701 
010177 
052777 


012746 
012746 
010600 
104417 
062706 


114720 


000004 


002226 
002224 


066540 
003040 
000040 
066540 
066542 


013701 
163701 
005201 
010137 
012702 
012703 
013701 
005737 
001407 


013722 
013722 
005301 
001372 
000414 


013722 
013722 
005301 
001406 


7711 065726 
7712 065732 
7713 065736 
7714 065740 
7715 065744 
7716 065750 
7717 065754 
7718 065760 
7719 065764 


7721 065766 
7722 065772 
7723 065776 
7724 066000 
7725 066002 


7727 066004 
| 7728 066010 
| 
' 


003034 
003036 


003034 
003034 
7729 066014 
7730 066016 


JSR PC,DACON 
PRINTF #RNDOUT 


JSR PC ,DECOUT 
PRINTF #OCTOUT,SVAL 


GMANIL 17255,BVALS,377,YES 
40$: MOV CTIME,R1 

BIS #PCR,R1 

MOV R1,@0RXDBR 

BIS #FNCTO,@DRXSCR 


PRINTF #PM250 


' Set up the DMA output buffer 


MOV LSTCHN,R1 
SUB FSTCHN,R1 
INC R1 
MOV R1,NCHANS 
MOV #BUF OUT ,R2 
MOV #32. ,R3 
MOV NCHANS ,R1 
TST BVALS 
BEQ 60$ 

50$: MOV FVAL ,CR2)+ 
MOV SVAL ,CR2)+ 
DEC R1 
BNE 50$ 
BR 70$ 

60$: MOV FVAL,CR2)+ 
MOV FVAL ,CR2)+ 
DEC R1 
BEQ 70$ 


=e © of oe oe 


SEQ 0201 
convert back to actual output value 
"ROUNDED TO " 
MOV #RNDOUT , -( SP) 
MOV #1,-(CSP) 
MOV SP ,RO 
TRAP C$PNTF 
ADD #4,SP 

“annnn.nnn” 

"MILLIVOLTS - OCTAL VALUE nnnnn"” 
MOV SVAL ,-(SP) 
MOV #0CTOUT, -(SP) 
MOV #2,-CSP) 
MOV SP ,RO 
TRAP CS$PNTF 
ADD #6, SP 

"USE BOTH VALUES FOR EACH CHANNEL ?” 
TRAP C$GMAN 
BR 10000$ 
WORD BVALS 
WORD T$CODE 
. WORD T255 
. WORD 377 

10000$: 

get the selected conversion time 

address the PCR 

and enter the conversion time 

transfer to PCR 

"TEST RUNNING” 
MOV #PM250,-(SP) 
MOV #1,-CSP) 
MOV SP ,RO 
TRAP C$PNTF 
ADD #4,SP 


get last selected channel 
calculate number of channels 


and save the result 

get address of DMA buffer 
store 32 pairs of values 

for each channel 

both values on each channel ? 
branch if not 


store first output value 
and second output value 
all channels set up ? 

if not, set up more 
branch to repeat 32 times 


store first output value 
twice 

all channels set up ? 
branch if yes 


i atc eembiaa 








H16 
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7731 
7732 
7733 
7734 
7735 
7736 
7737 
7738 
7739 
7740 
7741 
7742 
7743 
7744 
7745 
7746 
7747 
7748 
7749 
7750 
7751 
7752 
7753 
7754 
7755 
7756 
7757 
7758 
7759 
7760 
7761 
7762 
7763 
7764 
7765 
7766 
7767 
7768 
7769 
7770 
7771 
7772 
7773 
7774 
7775 
7776 
7777 
7778 
7779 
7780 
7781 
7782 


- Selectable Output Test. 


066020 
066024 
066030 
066032 


066034 
066036 
066040 
066044 
066050 
066052 
066054 
066056 
066060 


066062 
066066 
066072 
066076 
066102 
066106 
066112 
066116 
066124 
066130 
066136 
066140 
066142 
066144 
066146 
066150 


066152 
066154 
066160 
066164 


066172 
066200 


066206 
066212 
066214 
066216 
066220 


066222 
066222 
066226 
066232 
066236 
066242 


013722 
013722 
005301 
001364 


005303 
001411 
012704 
013701 
012422 
012422 
005301 
001374 
000765 


012701 
012702 
053702 
012703 
053703 
012704 
010177 
052777 
010277 
052777 
005201 
005304 
001363 
005202 
020203 
003756 


005302 
052702 
010277 
052777 


012777 
052777 


013701 
000301 
006201 
006201 
005401 


012746 
012746 
013746 
012746 
104437 


003036 
003036 


003040 
066540 


020000 
030000 
002224 
030000 
002226 
000002 
114516 
000001 
114504 
000001 


000100 
114450 
000001 


020000 
000001 


066540 


000340 
032224 
002636 
000003 


114502 
114470 


114434 


114434 
114420 


MOV 
MOV 
DEC 
BNE 


70$: DEC 
BEQ 
MOV 
MOV 
80$: MOV 
MOV 
DEC 
BNE 
BR 


SVAL ,CR2)+ 
SVAL ,CR2)+ 
R1 

60$ 

R3 

90$ 
#BUF OUT ,R4 
NCHANS ,R1 
(R4)+,CR2)+ 
CR4)+,(CR2)+ 
Ri 

80$ 

70$ 


; Set up the control table 


90$: MOV 
MOV 


100$: MOV 
110$: MOV 


CMP 
BLE 


DEC 
BIS 
MOV 
BIS 


MOV 
BIS 


#CTA,R1 

#CWR ,R2 
FSTCHN,R2 

#CWR ,R3 
LSTCHN,R3 
#2,R4 
R1,@0RXDBR 
#FNCTO,@DRXSCR 
R2,@DRXDBR 
#FNCTO,@DRXSCR 


#100 ,R2 
R2,@D0RXDBR 
#FNCTO,@DRXSCR 


#CTA,@DRXDBR 


* #FNCTO,@DRXSCR 


SEQ 0202 


store second output value 
twice 

all channels set up ? 

if not, do more 


repeat buffer 32 times ? 

if done, branch 

get address of dma buffer 

get number of channels 

else copy another 2 values 

for each channel 

all channels set up ? 

if not, set up more 

else check whether to repeat again 


set up for CWRO 

put first control word 

contents in R2 

and last control word 

contents in R3 

set up 2 control words 

address the CTA 

and transfer the control word address 
address the control word register 
and transfer the control word 
next control table address 

2 words set up ? 

if not, set up the next 

next channel 

last channel set up ? 

if not, do more 


go back to previous control word 
set up last control word in mode 1 
address the control word register 
and transfer the control word 


point to cwr 0 


; Set up the DRX11-C and start the DMA outputs 


MOV 
SWAB 
ASR 
ASR 
NEG 


SETVEC 


NCHANS ,R1 
R1 
R1 
R1 
R1 


DRXVEC, #INT1, #PRIO7 


get number of channels again 
2 conversions per channel * 32 


; convert to wordcount 


set up DRX11-C vector 
MOV #PRIO7, -(SP) 
MOV #INT1,-(SP) 
MOV DRXVEC, -( SP) 
MOV #3,-(SP) 
TRAP C$SVEC 


ee ee ee ee ee —- 


a a 


ee 


116 
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, TEST 25 


7783 
7784 


7785 


7785 
7787 
7788 
7789 
7790 
7791 
7792 
7793 
7794 
7795 
7796 
7797 
7798 
7799 
7800 
7801 
7802 
7803 


7804 
7805 
7806 
7807 
7808 
7809 
7810 
7811 


7812 


- Selectable Output Test. 


066244 


066250 
066250 
066252 
066252 
066256 
066260 
066264 
066272 
066300 
066306 
066314 
066322 
066326 
066334 
066342 
066350 
066354 
066362 


066370 
066372 
066372 
066374 
066400 
066402 
066406 
066410 
066416 
066424 
066430 
066430 
066432 
066434 
066436 
066440 


066442 
066444 
066446 
066452 
066454 
066460 
066464 


066466 
066466 
066472 
066474 
066502 
066506 
066514 
966520 
066520 


062706 


104404 


012700 
104441 
005037 
012777 
012777 
012777 
012777 
012777 
010177 
012777 
012777 
012777 
010177 
012777 
052777 


005004 


104422 
017702 
005702 
004737 
100015 
042777 
012777 
017703 


104457 
004704 
067044 
023670 
000704 


005304 
001352 
005737 
001405 
005037 
004737 
000742 


012700 
104441 
042777 
017702 
012777 
017703 


104457 


000010 


000000 


002772 
010001 
000001 
000000 
003040 
000400 
114304 
001000 
003040 
001400 
114256 
020100 
000100 


114226 
026306 
020000 


010000 
114204 


002772 


002772 
026306 


000340 


020000 
114120 
010000 
114114 


114342 
114326 
114322 
114316 
114306 


114274 
114270 
114260 


114246 
114236 


114212 
114210 


114126 
114120 


120$: BGNSEG 
130$: SETPRI #PRIOO 


CLR INTFLG 

MOV #ACS!G0,@0RXDBR 
MOV #FNCTO, @DRXSCR 
MOV #BAR1,@D0RXCOR 
MOV #BUF OUT , ADRXADR 
MOV #WCR1,@DRXCOR 
MOV R1,@DRXADR 

MOV #BAR2 , BDRXCOR 
MOV #BUF OUT , ADRXADR 
MOV #WCR2 , ADRXCOR 
MOV R1,@DRXADR 

MOV #RUN! ALT , JDRXCOR 
BIS #IE ,DORXSCR 


SEQ 0203 


ADD #10,SP 


TRAP C$BSEG 


MOV #PRIOO,RO 
TRAP C$SPRI 
clear the interrupt flag 
set up to start the conversions 
enable conversions and clear the SCR 
multiplex to BARI 
set up DMA address 
now select WCR1 
and write the word count 
multiplex to BAR2 
set up DMA address 
now select WCR2 
and write the word count 
start DMA in alternate buffer mode 
enable interrupts 


drop the priority 


; Loop until control C. Report DRX11-C errors or interrupt timeouts. 


CLR R4 

140$: BREAK 
MOV @DRXSCR ,R2 
TST Re 
CALL INSERT 
BPL 150$ 
BIC #RUN , ADRXCOR 
MOV #ACS ,@DRXDBR 
MOV @DORXDBR ,R3 


ERRSOFT 2500,E2500,ESA 


BR 130$ 
150$: DEC R4 
BNE 140$ 
TST INTFLG 
BEQ 160$ 
CLR INTFLG 
CALL INSERT 
BR 140$ 


160$: SETPRI #PRIO7 


BIC #RUN , ADRXCOR 
MOV @DRXSCR ,R2 
MOV #ACS ,@DRXOBR 


MOV @DRXDBR , RS 
ERRSOFT 2501,€2501,ESA 


clear a timeout counter 
allow operator breakin 
TRAP C$BRK 
save the SCR contents 
SCR attention bit set ? 
skip branch if error insert selected 
if attention bit not set, branch 
else stop the DMA 
address the ACS register 
and save the contents 
and print "ATTENTION BIT SET” 
TRAP CSERSOFT 


-WORD 2500 
-WORD E2500 
-WORD ESA 


start again 


is timeout loop finished ? 

if not, wait longer 

else, have we had an interrupt ? 

if not, branch 

else clear the interrupt indicator 
skip branch if error insert selected 
loop until control C is typed 


stop any more interrupts 
MOV #PRIO7,RO 
TRAP C$SPRI 
from the DRX11-C 
save the SCR contents 
address the ACS register 
and save the contents 
and print "INTERRUPT TIMEOUT” 
TRAP CS$ERSOFT 


a 
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| TEST 25 - Selectable Output Test. 


7828 


7829 
7830 
7831 


7832 
7833 
7834 
7835 
7836 
7837 
7838 
7839 
7840 
7841 
7842 
7843 
7844 
7845 
7846 
7847 
7848 
7849 
7850 
7851 
7852 


7853 


066522 
066524 
066526 
066530 
066530 
066530 
066532 


066534 
066534 
066536 


066540 
066542 


066544 
066557 


066572 
066630 


066705 
066746 


067044 
067142 


067224 
067224 
067224 


004705 
067142 
023670 


104405 
000646 


104432 
000466 


000000 
000000 


060 
%61 


045 
045 


125 
045 


104 
111 


104401 


056 
060 


123 
123 


123 
101 


122 
116 


060 
060 


062 
062 


105 
124 


130 
124 


ENDSEG 


BR 


EXIT TST 


NCHANS: .WORD 
BVALS: .WORD 


-NLIST 
N251: -ASCIZ 
N2S2: -ASCIZ 


TSHD25: : .ASCIZ 
TSNS25: .ASCIZ 


T255: -ASCIZ 
PM250: .ASCIZ 


E2500: .ASCIZ 

E2501: .ASCIZ 
-LIST 
- EVEN 
ENDTST 


120$ 


0 
0 


BEX 


70.0 
410000.0 


J16 


/ 
# 


. WORD 
. WORD 
. WORD 
10001$: 
start again 
TRAP 
. WORD 


number of selected channels 
store for both values answer 


2501 
F2501 
ESA 


CSESEG 


CSEXIT 
i.10062-. 


store for first input value string 
store for second input value string 


/SS2HASELECTABLE OUTPUT TEST#N/ 
/SS2SASELECTABLE OUTPUT TEST - NOT SELECTED#N/ 


/USE BOTH VALUES FOR EACH CHANNEL/ 
/#ATEST RUNNING. TYPE CONTROL C TO RE"URN TO THE SUPERVISOR. #N/ 


/ORX11-C SCR AITENTION BIT SET DURING DOUBLE BUFFER DMA OUTPUT/ 
ZINTERRUPT TIMOUT DURING LM!ELE BUFFER DMA OUTPUT/ 


BEX 


L10062: 
TRAP 


CSETST 


SEQ 0204 


em ee ae + 


K16 
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TEST 26 - Loopback Test using ADFO1. 


| 


7855 
7856 
7857 
7858 
7859 
7860 
7861 
7862 
7863 
7864 
7865 
7866 
7867 
7868 
7869 
7870 
7871 
7872 
7873 
7874 
7875 
7876 
7877 
7878 
7879 
7880 
7881 
7882 
7883 
7884 
7885 
7886 
7887 
7888 
7889 
7890 
7891 
7892 
7893 
7894 
7895 
7896 
7897 


-SBTTL TEST 26 - Loopback Test using ADFO1. 


3 +4 
This tests that the AAFO1-A conversion accuracy is within a 
specified tolerance. 


The test begins by requesting the following parameters : 
ADFO1 DRX11-C ADDRESS (0) 164210 ? 


In reply, you should enter the address of the DRX11-C to which 
an ADFO1 is connected. This ADFO1 will be used as the other half 
of a looped pair. This question is only asked following a 
“START” command. 


CHANGE LOOPBACK PARAMETERS (L) ? 


This allows the parameters used for loopback testing to be 
changed. Answering "no" forces the use of the default 
parameters, which cause the most thorough testing, and 
eliminates the need for any more questions. If "Y" is typed, the 
following questions are also asked : 


PATTERN (1=RAMP, 2=RANDOM, 3=PAIR) (D) 1 ? 


This selects how output is made from the AAFO1-A. A sequence of 
2048 outputs is made. If "1" was typed in response to this 
question, the output ramps up from the lowest voltage to the 
highest and back again each pass of the test. If "2" is 
selected, random values are output. Responding with "3" results 
in the output alternating according tc the answers to the next 
two questions. 


FIRST VALUE IN MILLIVOLTS (A) 0.0 ? 
SECOND VALUE IN MILLIVOLTS (A) 10000.0 ? 


After the user has typed in each value, the program prints out 
the actual value which will be output and its equivalent bit 
pattern in octal. The program then asks : 


ALTERNATING CHANNELS (L) Y ? 


Normally, 2048 values are output to the first of the selected 
channels and checked to be correct. Outputs are then made to the 
next channel and so on until each channel has been used. If the 
answer to the "alternating channels” question is “yes”, 2048 
outputs are made alternating between the first and second of the 
selected channels. After checking the results, a further 2048 
outputs are made to the third and fourth of the selected 
channels and checked. This continues until all channels have 
been checked. If the number of selected channels is odd, the 
last channel is paired with the subsequent channel. 


If a paired data pattern and alternating channels are both 
selected, the effect is that the first of the data values is 
output 1024 times to the first of the channels in the pair and 


7 oF oF SF SF we ee SF SF Se we ee ee SS Se Se Se ws Se ee Se Se Ss Se es we Se Ss Se Se Se Ss SF ws Se Se Se ws Se we SH we Se Ss Ss Se Se SF Ss Se Se Se oe Se 


SEQ 0205 
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| on 26 - Loopback Test using ADFO1. 


L1i6 


in a static 


After the parameters have been input, a system reset is made and 


Starting with the first of the selected channels, 2048 outputs 
output is read back via the DRX11-C/ADFO1 analogue input. The 


RATE CLK OUT signal is used to synchronize the two devices. When 
The test then proceeds with the next channel and continues until 


If "alternating channels” was selected at the start of the test, 
then the list of selected channels is split into pairs. The test 


\ 7912 ; the second value to the second channel. This results 
7913 ; output on each channel, each second channel having the same 
7914 ; voltage. 
7915 H 
7916 ; 
7917 ; the output from each selected channel is read via the 
7918 ; DRX11-C/ADFO1 and checked to be zero. 
7919 ; 
7920 H 
7921 ; are made under DMA and the program waits for DMA ready. The 
7922 ; 
7923 ; 
7924 ; the transfer is complete, the received data is compared with 
7925 ; that which was output and checked to be within the specified 
7926 ; tolerance. 
7927 ; 
7928 $ 
7929 ; all selected channels have been tested. 
7930 ; 
7931 H 
7932 H 
7933 ; sequences through the pairs alternating output between each 
7934 ; channel in the pair. 


7935 


: a me a ——— 
= NT ET 


SEQ 0206 


a 


M16 
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SEQ 0207 
; TEST 26 - Loopbeck Test using ADFO1. 
7937 067226 BGNTST 

067226 T26:: 

7938 

7939 067226 RFLAGS RO ; read operator flags 
067226 104 TRAP C$RFLA 

7940 067230 032/00 001000 BIT #PNT,RO ; print test headers ? 

7941 067234 001426 BEQ 20$ ; if not, branch 

7942 067236 005737 003030 TST STAFLG ; was test specifically selected ? 

7943 067242 001411 BEQ 10$ ; if not, branch 

7944 067244 PRINTF #TSHD26 ; else, print test header 
067244 012746 072100 MOV #TSHD26, -( SP) 
067250 012746 000001 MOV #1,-(SP) 
067254 010600 MOV SP,RO 
067256 104417 TRAP CS$PNTF 
067260 062706 000004 ADD #4,SP 

7945 067264 000417 BR 30$ ; and start the test 

7946 067266 10$: PRINTF #TSNS26 ; print "TEST NOT SELECTED” 
067266 012746 072141 MOV #TSNS26, -( SP) 
067272 012746 000001 MOV #1,-(CSP) 
067276 010600 MOV SP ,RO 
067300 104417 TRAP CS$PNTF 
067302 062706 000004 ADD #4,SP 

7947 067306 EXIT TST ; and skip the test 
067306 104432 TRAP CsexIT? 
067310 003606 . WORD L10063-. 

7948 067312 005737 003030 20$: TST STAFLG ; was test specifically selected ? 

7949 067316 001002 BNE . 30$ ; if yes, branch 

7950 067320 EXIT TST ; else skip the test 
067320 104432 TRAP CS$EXIT 

_ 067322 003574 . WORD L10063-. 

951 

7952 067324 005037 003032 30$: CLR ITRCNT ; clear iteration counter 

7953 067330 052777 000040 113270 BIS #RES ,@DRXSCR ; reset the DRX11-C 

7954 067336 004737 026106 JSR PC,WT500 ; weit for 1 millisecond 

7955 067342 004737 026106 JSR PC,WT500 ; (e+ Ov ricroseconds) 

7956 3 

7957 ; Request the test parameters 

7958 3 

7959 067346 005737 003014 TST QFLAG1 ; was it a start command ? 

7960 067352 001031 BNE 40$ ; if not, branch 

7961 067354 005237 003014 INC QFLAG1 ; else flag address question is being asked 

7962 067360 MEMORY BUFIN ; get the address of free memory 
067360 104431 TRAP C$MEM 
067362 010037 023040 MOV RO,BUFIN 

7963 067366 062737 000100 023040 ADD #100,BUFIN ; allow space for parameters 

7964 067374 013701 002074 MOV L$LUN,R1 ; get current unit number 

7965 067400 006301 ASL R1 i convert to an offset 

7966 067402 016137 002650 072034 MOV ADF ADDC(R1),ADDST get the default ADF address 

7967 067410 GMANID 1261,ADDST,0,-1,160000, 177776. YES ; “ADF ADDRESS ?” 
067410 104443 TRAP C$GMAN 
067412 000406 BR 10000$ 
067414 072034 . WORD ADDST 
067416 000032 . WORD TS$CODE 
067420 072221 . WORD T261 
067422 177777 . WORD -1 
067424 160000 . WORD T$LOLIM 
067426 177776 . WORD T$HILIM 


LTT 


ee ee e 





Bi 
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7968 
7969 
7970 
7971 
7972 


7973 
7974 
7975 


7976 
7977 
7978 
7979 
7980 
7981 
7982 
7983 
7984 


7985 
7986 


7987 
7988 
7989 
7990 
7991 
7992 
7993 


- Loopbeck Test using ADFO1. 


067430 


023727 
001074 
004737 
023236 
072052 
004737 
010137 
004737 


012746 
012746 
010600 
104417 
062706 
004737 


013746 
012746 
012746 
010600 
104417 
062706 
004737 
023270 
072065 
004737 
010137 
004737 


012746 
012746 
010600 


072034 902650 


003016 
003016 


072036 


072040 
026710 
026510 
003034 
026352 


023323 
000001 


026710 


026510 
003036 
026352 


023323 
000001 


000003 


40$: 


MOV ADDST , ADFADDC(R1) 
TST QFLAG2 

BNE 60$ 

INC QFLAG2 

GMANIL 1262,CHANGE ,377,NO 
TST CHANGE 

BEQ 60$ 

GMANID 1263,PAT,D,-1,1,3,YES 
cmp PAT, #3 

BNE SO$ 

JSR PC,DECIN 

FVALQ 

N261 

JSR PC, ADCON 

MOV R1,FVAL 

JSR PC,DACON 

PRINTF @RNDOUT 

JSR PC ,DECOUT 

PRINTF #OCTOUT,FVAL 

JSR PC,DECIN 

SVALQ 

N262 

JSR PC,ADCON 

MOV R1,SVAL 

JSR PC,DACON 


PRINTF #RNDOUT 


-- oF oe ee oF oe oF 


10000$: 
save the address 
stert, restart or continue ? 
if not, branch 
else as. questions are being 
"CHANGE PARAMETERS ?” 


10001$: 
check the answer 
if no, branch 
“PATTERN ?” 


10002$: 
pair selected ? 
if not, don't ask for values 
decimal input routine 
"FIRST VALUE” prompt 
store for first value string 
convert to 1l2 bit pattern 
and save first value 
convert back to actual output 
“ROUNDED TO ” 


“AANNN .nnn” 
“MILLIVOLTS - OCTAL VALUE nnnn 
Vv 


decimal input routine 
“SECOND VALUE” prompt 
store for second value string 
convert to l2 bit pattern 
and save second value 
convert back to actual output 
“ROUNDED TO ” 

MOV 


MOV 
MOV 





SEQ 0208 


asked 


C$GMAN 
10001$ 
CHANGE 
T$CODE 
T262 
377 


T$LOLIM 
T$HILIM 


velue 


@RNDOUT , - (SP) 
#1,-(SP) 

SP ,RO 

CSPNTF 

@4,SP 


in” 
FVAL ,-(SP) 
@OCTOUT, -( SP) 
#2,-(SP) 

SP ,RO 

CSPNTF 

#6,SP 


velue 


@RNDOUT, -( SP) 
#1,-(SP> 
SP RO 


a ae 


HARDWARE TESTS 


. SEQ 0209 
TEST 26 - Loopbeck Test using ADFO]. 

067654 104417 TRAP CSPNTF 
067656 062706 000004 AOD 64 ,SP 

7994 067662 004737 027640 JSR PC ,DECOUT + “AAAAn.ann” 

7995 067666 PRINTF @O0CTOUT,SVAL ; “MILLIVOLTS - OCTAL VALUE nnnnn” 
067666 013746 003036 MOV SVAL , -( SP) 
067672 012746 023341 MOV @OC TOUT, -( SP) 
067676 012746 000002 MOV @2,-(SP) 
067702 010600 MOV SP ,RO 
067704 104417 TRAP CSPNTF 
067706 062706 000006 ADO 06 ,SP 

7996 067712 50$: GMANIL 1264,ALTST,377,YES ; “ALTERNATING CHANNELS ?” 
067712 104443 TRAP C$GMAN 
067714 000404 BR 10003$ 
067716 072042 .WORD ALTST 
067720 000130 -WORD TSCODE 
067722 072345 -WORD 1264 
067724 000377 . WORD 377 
067726 10003$: 

7997 . ; 

— ; Set up the addresses for the ADFO1's DRX11-C 

: 

8000 067726 013701 002074 60$: MOV L$LUN,R1 ; get current unit number 

8001 067732 006301 ASL R ; convert to an offset 

8002 067734 062701 002650 ADD @ADF ADD ,R1 ; point to ADF address store with Ri 

8003 067740 011100 MOV CR1),RO ; get the SCR address of the ADF's DRX 

8004 067742 010037 002640 MOV RO, ADFSCR ; and seve it 

8005 067746 062700 000002 ADD 02,R0 ; add 2 

8006 067752 010037 002642 MOV RO, ADFCOR ; to give COR address of ADF’s DRX 

8007 067756 062700 000002 ADD @2,R0 ; add 2 

8008 067762 010037 002644 MOV RO, ADF ADR ; to give ADR address of ADF's DRX 

8009 067766 062700 000002 ADD @2,R0 ; add 2 

8010 067772 010037 002646 MOV RO, ADFDBR ; to give DBR address of ADF’'s DRX 

6011 3 

6012 ; Check that the ADFO] is there 

6013 ; 

8014 067776 SETVEC #4, ONXM,OPRIO7 ; set up NXM trap service routine 
067776 012746 000340 MOV @PRIO7, -( SP) 
070002 012746 032204 MOV @NXM, -( SP) 
070006 012746 000004 MOV 04,-(SP) 
070012 012746 000003 MOV @3,-(SP) 
070016 104437 TRAP C$SVEC 
070020 062706 000010 ADD #10,SP 

8015 070024 013701 002640 MOV ADFSCR,R1 ; get first register address 

8016 070030 012702 000004 MOV 04,R2 ; test 4 registers 

+34 070034 005003 CLR R3 ; clear the error flag 

601 

8019 070036 70$: BGNSEG F 
070036 104404 TRAP CS$BSEG 

8020 070040 005037 002770 CLR NXMFLG ; clear the NXM flag 

8021 070044 005711 TST (R1) ; test register address 

8022 070046 005737 00277C TST - NXMFLG ; was there ea trap ? 

8023 070052 004737 026306 CALL INSERT ; skip branch if error insert selected 

8024 070056 001405 BEQ 80$ ; if no trap, branch 

8025 070060 005203 INC R3 ; else flag the error 

8026 070062 ERRHRD 2600,E2600,ERDNR ; print “ADDRESSING ERROR” 
070062 104456 TRAP CSERHRD 
070064 005050 -WORD 2600 
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8027 


8028 


070066 
070070 
070072 
070072 
070072 


070074 
070100 
070102 


070104 
070106 
070110 
070110 
070114 
070116 
070116 


070120 
070120 
070124 


070126 
070126 
070130 
070136 
070142 
070150 
070154 
070160 
070164 
070166 
070170 
070172 
070176 
070202 
070204 
070210 
070214 
070214 
070216 
070220 
070222 
070224 
070224 
070224 


070226 
070226 
070232 
070234 
070234 


072372 
023460 
104405 
062701 
005302 
001355 


005703 
001404 


013700 
104451 


104444 


012700 
104436 


012701 
012702 


104456 
005051 


072442 
023726 


104405 
013700 


104451 
104444 


000002 


002074 


000004 


010000 
112504 
010000 
112460 
173777 
173777 


073074 
073105 


073105 
073074 


002074 


112510 
112464 


80$: ENDSEG F 
ADD 02.% ’ 
DEC R2 ’ 
BNE 70$ : 
TST R3 ’ 
BEQ 90$ ; 
bpodU L$LUN ; 
DOCLN ; 
90$: CLRVEC 4 ’ 
; Check that the ADFO1 and AAFO1-A are in 
’ 
BGNSEG 
MOV #ACS,@ADFOBR ’ 
MOV @ADF OBR ,R1 F 
MOV #ACS ,@ORXDBR F 
MOV @DRXDBR , R2 $ 
BIC @tCUNI,R1 ’ 
BIC @tCUNI ,R2 : 
CMP R1,R2 ; 
BEQ 120$ ; 
BLT 100$ ; 
MOV MUNIERR ,R1 ’ 
MOV OBIERR,R2 ’ 
BR 110$ : 
100$: MOV #BIERR.R1 ; 
MOV MUNIERR ,R2 8 
110$: ERRHRD 2601, E2601, EAAAF ; 
ENDSEG : 
pOoDU L$LUN ’ 
DOCLN ; 


; 
+ Reset the AAFO1-A and set 


ee ee ee re | _— — « 


SEQ 0210 
. WORD E2600 
. WORD ERONR 
10004$; 
TRAP CSESEG 
point to the next register 
ell registers tested ? 
if not, branch 
wes there an error ? 
if not, branch 
else drop the unit under test 
MOV L$LUN,RO 
TRAP C$D00U 
end run the clean up routine 
TRAP C$OCLN 
restore DRS trap catcher 
MOV 04 ,RO 
TRAP Cs$CVEC 
the same mode 
TRAP C$BSEG 


address the ADF ACS teen 
save the contents in R 

address the AAF ACS > sheet: 
save the contents in R 

isolate the mode bits 

in R1 and R2 

are they the same ? 

if yes, branch 

else, branch if ADF is unipoler 
set up error messe 

"ADF = UNIPOLAR, AAF = BIPOLAR” 


set up error messa 


“ADF = BIPOLAR, AAF = UNIPOLAR” 


print “NOT IN SAME MODE” 
TRAP CSERHRD 
-WORDB 2601 
-WORD E2601 
.WORD EAAAF 


100058: 
TRAP CSESEG 


drop the unit under wet 


V L$LUN,RO 
TRAP Csbd0DU 
and run the clean up routine 
TRAP CS$OCLN 


up the conversion rate 


‘ 
-—< 


El 
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8065 070236 
070236 
070240 
070244 
070252 
8069 070256 
8070 070262 
070266 
8072 070272 
8073 070276 


6077 070304 
070312 
8079 070320 
8080 070324 
070332 
8082 070340 
070346 
070352 
8085 070356 
8086 070360 
070364 
8088 070366 
8089 070370 
8090 070374 
070376 
070402 
8093 070410 
070414 
070414 
070416 
070420 
070422 
8095 070424 

070424 


070426 
8098 070434 
8099 070440 
8100 070444 
070450 
070452 
070460 
070464 
070464 
070466 
070470 
070472 
8105 070474 
070474 


070476 
070502 
8109 070506 
8110 070514 


104404 
005037 
052777 
004737 
004737 
013701 
052701 
010177 
052777 


013737 
163737 
005237 
013737 
013737 
013737 
005037 
004737 
005001 
105777 
100420 
005301 
004737 
001371 
017702 
012777 
017703 


104406 


012737 
017702 
020237 
004737 
001411 
012777 
017703 


104457 
005053 
072531 
023670 


104406 


013701 
013702 
012737 
005737 


031014 
030522 


112254 


112232 


000200 
112200 
003020 
026306 


010000 
112162 


- Loopbeck Test using ADFO1. 


112354 


112322 


066540 
066540 


031006 
031010 
031012 


112236 


003020 


112166 


003020 





1208: 


3 
; Check 
3 


130$: 


140$: 


150$: 


TRAP 
clear iteration counter 
reset the DRX11-C 
weit for 1 millisecond 
(2#500 microseconds) 
get the selected conversion time 
address the PCR 
and enter the conversion time 
transfer to PCR 


C$BSEG 


thet all outputs have been reset to 0 volts 


BCNSEG 

CLR ITRCNT 

BIS @RES , BRXSCR 
JSR PC,WTS00 

JSR PC,WTSOO 

MOV CTIME ,R1 

BIS oPCR,R1 

MOV R1,@DRXDBR 
BIS #FNCTO, @ORXSCR 
MOV LSTCHN,NCHANS 
SUB FSTCHN,NCHANS 
INC NCHANS 

MOV FSTCHN,FCHIN 
MOV LSTCHN,LCHIN 
MOV NCHANS , NCONS 
CLR EXTCLK 

JSR PC,ADFIN 

CLR Ri 

TSTB @ADF SCR 

BMI 140$ 

DEC Ri 

CALL INSERT 

BNE 130$ 

MOV @ADF SCR ,R2 
MOV @ACS , @ADFOBR 
MOV @ADF DBR ,R3 
ERRSOFT 2602,E2602,ESA 
CKLOOP 

MOV #RDY ,GOOD 

MOV @ADF SCR ,R2 
CMP R2,GO0D 

CALL INSERT 

BEQ 150$ 

MOV @ACS , @ADFOBR 
MOV @ADF OBR ,R3 
ERRSOFT 2603,€2603,ESA 
CKLOOP 

MOV FSTCHN,R1 

MOV BUFIN,R2 

MOV #7777,G00D 
TST MODE 


get lest selected channel 
calculate number of channels 


get first channel for input 
and last channel 

and number of conversions 
don't use external clock 
start the DMA input 

clear a timeout counter 

is READY sect ? 

if yes, branch 

decrement timeout counter 
skip branch if error insert selected 
if not timed out, branch 
save the SCR contents 
address the ACS register 
and save the contents 

print “TIMEOUT ON DMA INPUT” 


TRAP CSERSOFT 
-WORD 2602 
-WORD E2602 
WORD ESA 


branch to BGNSEG if loop on error set 
TRAP C$CLPl 


save expected SCR contents 

and get actual contents 

ere they the same ? 

skip branch if error insert selected 
branch if OK 

address the ACS register 

and save the contents 

print "ERROR ON DMA INPUT” 


TRAP CSERSOFT 
-WORD 2603 
.WORD E2603 
.WORD ESA 
branch to BGNSEG if loop on error set 
TRAP CS$CLPl 


get first channel to test 

“ OMA input buffer address 
volts in unipolar mode 

in unipolar mode ? 


SEQ 0211 


al 
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8111 070520 001403 
003777 003020 
6113 070530 012237 003022 


013700 003020 
163700 003022 


8118 070550 020037 002232 
026306 


070570 023764 
104406 


005201 
8124 070576 020137 
8125 070602 003752 


002226 
104405 


8130 070606 012701 003040 
8131 070612 023727 072040 000001 


004000 
8134 070626 013700 072044 


004000 


8143 070654 010037 072044 
010000 


6152 070702 010037 072044 


100035 
8154 070710 005037 072044 
6155 070714 000432 


6 

8157 070716 023727 072040 000003 
8158 070724 001011 
8159 070726 012702 002000 

; 8160 070732 013721 003034 


TS 


0%; 


170%; 


160%; 


’ 
1 Set up the DMA output buffer 


' 
190%: 


200%: 
2108: 


220%: 


230%: 


240%: 





160% 

03777 ,GO00 
(R2)+,BAD 
GOOD, 

BAD ,RO 
170% 

RO 

RO, TOL 
INSERT 


180% 
2604 , E2604 , ECHGB 


Ri 
> 


#BUF OUT ,R1 
ai 


230 

02048 e R2 
LASTV,RO 
RO 


2008 
RO, 02048, 
2108 


RO,CR1)+ 
RO 

R2 

200% 
RO,LASTV 
270% 

RO, 04096. 
220% 

RO 
RO,CR1)+ 
RO 

R2 

220% 
RO,LASTV 
270% 
LASTV 
2708 

PAT, #3 
2508 
01024, ,R2 
FVAL ,CR1)« 





SEQ 0212 


if yes, branch 

else set up 0 volts in bipolar mode 
and get actuel velue 

piece the difference 

n 


if positive, branch 
elee make positive 
ie the difference too big ? 
skip branch if —— insert selected 
if difference not t big, branch 
else, print "OUTPUTS. NOT ZERO” 
TRAP CsERSOFT 
WORD 604 


26 
WORD E2604 
. WOR ECHGB 
branch to BGNSEG if loge on oreee, Sr" 


next channel 
ell channels done ? 
if not, go beck 


100068: 
TRAP CsESEG 


get address of DMA buffer in R1 
ramp pattern selected ? 

if not, branch 

set up 2048 values for output 
get previous lest value 

wee it zero ? 

if yes, do upwards ramp 

ere we helf way up ? 

if not, must be downward ramp 
load the buffer 

next value 

ell velues written ? 

if not, write next 

store lest value 

go to set up the control teble 
ere we half way down @ ramp ? 
if yes, continue down 

else start ea downwerd ramp 
write value 

next value 

ell velues written ? 

if not, write next 

else seve the last value 

if it wes negative 

reset it to zero 

go to set up control table 


pattern pair seiected ? 

if not, branch 

set up 2048 word alternating pattern 
firet selected value 











G1 
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} 

| 
8166 
8167 
8168 
8169 
8170 
8171 

| 


- Loopbeck Test 


070736 013721 
070742 005302 
070744 001372 
070746 000415 


070750 023727 


071002 
071010 
071010 
071012 
071016 


071024 


071030 
071034 
071042 
071046 
071052 
071056 


013737 


104404 
012702 
012737 


012705 
010277 


052777 


005202 
010277 
052777 
013701 
052701 
063701 
010177 
052777 


071114 
071120 


071126 


071162 


071164 
071172 
071200 
071206 


001361 


012777 
052777 
012777 
052777 


071214 013737 


using ADFO1. 
003036 


072040 000002 


004000 
032142 
170000 


002224 072046 


020000 
000100 
003040 
111600 


072050 


111564 


000001 111542 


111542 


000001 111526 


111500 


111500 
000001 
030200 
000001 
020041 


111464 
111464 
111450 


030500 
000001 
020002 
000001 


111442 
111426 
111426 
111412 


072046 031006 


SVAL ,CR1)+ 
R 


#170000 ,RO 
RO, CR1)+ 


R2 
260% 





second selected value 
buffer set up ? 

if not, go back 

go to set up control table 


random pattern selected ? 
if not, branch 

set up 2048 words 

get a random pettern 

use only 12 bits 

save the pattern 

buffer set up ? 

if not, go back 


’ 
; Set up the AAFO1-A control table - start with 32 dummy outputs and 
+ then loop on first 2 control words for 32 more outputs 


; 
270$;: MO 


V 
280%: BGNSEG 


290%: 


300$: 


; 
; Stert the 


FSTCHN, CHAN 


@CTA,R2 
#64. ,BLOCK 


BUF OUT ,RS 


R2,@D0RXDBR 
#FNCTO, @ORXSCR 
CHAN,R1 

OCWR ,R1 

Ri, @ORXDBR 
#FNCTO,@ORXSCR 


R2 

R2,@D0RXDBR 
#FNCTO, @ORXSCR 
CHAN,R1 
@CWR!100,R1 
ALTST,R1 
R1,@DRXDBR 
#FNCTO,@DORXSCR 


R2 

R2,@D0RXDBR 
#FNCTO,@DRXSCR 
#CWR ! 200, BORXDBR 
#FNCTO, BORXSCR 
R2,0CTA!33. 

290% 


#CWR !500, BORXDBR 
#FNCTO, @ORXSCR 
#CTA!2,@0RXDBR 
#FNCTO, @ORXSCR 


ADFO1 DMA input 


CHAN ,FCHIN 


start with first selected channel 


TRAP C$BSEG 
set up to address CTA register 
do 32 outputs 64 times to give 2048 
conversions 
save DMA output buffer address 


address the CTA, CWRO 

and trensfer the control word address 
convert using the current channel 
address the control word register 


and 
transfer the control word 
eddress the CTA, CWR1 


and transfer the control word address 
convert using the current channel 

in mode 1 

if alternating channels, use next one 
for second control word 

transfer the control word 


address the CTA, CWR2 


and transfer the control word address 
set next 32 CWR's 

for dummy outputs to get clock started 
32 dummies set up ? 

if not, set up more 


CWR31 to return to CWRO 

transfer the control word address 
start at CWR2 

transfer the control] word address 


set up first channel for input 


Hi 
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6217 071222 013737 072046 031010 
6218 071230 063737 072042 031010 
8219 071236 012737 000100 031012 
8220 071244 012737 000004 031014 
8221 071252 004737 030522 
8222 
8223 
6224 
6225 071256 012777 010001 111350 
8226 071264 012777 000001 111334 
6227 071272 012777 000000 111330 
8228 071300 010577 111326 
8229 071304 012777 000400 111316 
6230 071312 012777 177740 111312 
rt 071320 012777 020000 111302 
8233 
8234 
8235 071326 013701 002230 
8236 071332 005002 
8237 071334 004737 027776 
8238 071340 000100 
8239 071342 004737 030072 
8240 071346 000175 
6241 
8242 071350 005701 
8243 071352 001410 
6244 071354 005301 
8245 071356 004737 026114 
8246 071362 032777 100000 111250 
8247 071370 001005 
8248 071372 000766 
8249 071374 005702 
8250 071376 001402 
8251 071400 005302 
8252 071402 000764 
8253 
8254 
8255 
8256 071404 012737 000200 003020 
8257 071412 017702 111222 
8258 071416 020237 003020 
8259 071422 004737 026306 
8260 071426 001411 
8261 071430 012777 010000 111210 
8262 071436 017703 111204 
8263 071442 
071442 104457 
071444 005053 
071446 072531 
071450 023670 
8264 071452 
071452 104406 
8265 
8266 071454 012737 100600 003020 
8267 071462 017737 111140 003022 
| 8268 071470 023737 003022 003020 





EE ew 


SEQ 0214 


MOV CHAN ,LCHIN ; last channel same as the first 
ADD ALTST,LCHIN ; except if using alternating channels 
MOV #64. ,NCONS + 64 conversions (32 are dummies) 
MOV #ECE ,EXTCLK ; use external clock 
JSR PC,ADFIN + start the DMA input 
Fy ¢ 
; Start the AAFO1-A DMA output 
; 
MOV #ACS!G0,@DRXDBR ; set up to start the conversions 
MOV #FNCTO, @BRXSCR + enable conversions and clear the SCR 
MOV #BAR1 ,@ORXCOR + multiplex to BARI 
MOV R5,@DORXADR + set up DMA address 
MOV #WCR1, BORXCOR ; now select WCR1 
MOV #-32.,@0RXADR ; and write the word count 
MOV #RUN , BORXCOR ; start the DMA 
’ 
; Wait for the conversions to complete 
; 
MOV CTIME,R1 + get the conversion time 
CLR R2 ; 2 ~ ty is zero 
JSR PC, MUL ; multiply by 
64, ; the number of conversions 
JSR PC,OIV 3; divide by 
125. s 429 
3108: TST Ri + loop until R1/R2 is zero 
BEQ 330% ; 
3208: DEC R1 3 
JSR PC, ,WT25 ; wait 25 microseconds 
BIT #ATT,@ADFSCR + has the transfer finished ? 
BNE 340$ ; if yes, jump out of the wait loop 
BR 310$ ; 
3308: TST Re F 
BEQ 340$ + totel timeout = number of conversions 
DEC R2 ; * conversion time * 2 
BR 320% ’ 
; 
; Check that the DMA loopback completed correctly 
; 
340$: MOV @RDY ,GOOD ; Save expected ADF SCR contents 
MOV @ADFSCR,R2 ; and get actual contents 
CMP R2,G00D ; are they the same ? 
CALL INSERT ; skip branch if error insert selected 
BEQ 350$ ; branch if OK 
MOV #ACS , @ADFOBR ; address the ACS om de 
MOV SADF OBR R3 ; and save the contents 
ERRSOFT 2603, £2603, ESA ; print “ERROR ON DMA INPUT" 
TRAP > — aa 
. WORD 
. WORD 20008 
.WORD ESA 
3508: CKLOOP + branch to BGNSEG if loop on error set 
TRAP CSCLPl 
3608: MOV #ATTISTATO!RDY,GOOD + get expected SCR contents 





MOV @ORXSCR ,BAD 
CMP BAD ,GOOD 


and actual contents 
ere they the seme ? 


eee - 





ee — 
nn — 


CO , 





Il 
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, TEST 26 - Loopbeck Test using ADFO1. 


8269 071476 026306 
8270 071502 


072622 
023416 


104406 
012737 


071514 


3 
8274 071516 003020 


111102 
003022 


003020 


072671 
023416 


104406 
013701 


asse 071616 
8293 071622 


003022 


002232 
026306 


023764 


012746 
012746 


te) 
8303 071670 
0 072744 
000001 


000004 


370%; 


3808; 


; 
+ Check 


390%; 


400$: 


4108: 


CALL 
BEQ 
ERRSOFT 


CKLOOP 


INSERT 
370% 
2605 ,E2605,EGB 


#ACS ,GOOD 
#ACS , @ORXOBR 
10> late 


AD,RO 
OtC<UNI!CMP>,RO 
RO,GOOD 

BAD ,GOOD 

INSERT 


BEQ 380% 
ERRSOFT 2606,€2606,EGB 


CKLOOP 


skip branch if error insert selected 
branch if SCR is OK 
else print "SCR INCORRECT” 


TRAP CSERSOFT 
. WOR 2605 
-WORD E2605 
WORD €EGB 
branch to BGNSEG if lege on nee, ove 


get expected ACS contents 

address the ACS register 

and get the actual contents 

get the contents into RO 

and isolate uncertain bits 

set them in GOOD if they ere set 
contents correct ? 

skip branch if error insert selected 
branch if ACS is OK 

else print “ACS INCORRECT” 


TRAP CSERSOFT 
»-WORD 2606 
«WORD E2606 
-WORD EGB 
branch to BGNSEG if Loge on ernest, get 


that loopback date is within tolerance 


BL 
ERRSOFT 


PRINTX 


CKLOOP 


CHAN,R1 
ARUFIN,R2 


(R2)+,BAD 
G 0 


41 
2607 ,E2607 , ECHGB 


oMSG26 


check current channel 
and input buffer in R2 
ignore dummy inputs 
check 32 words 


save expected value 

and get ectuel velue 

place the difference 

in 

if positive, branch 

else make positive 

is the difference too big ? 

skip branch if —. ers | ono tae 

if difference not t oe 

else, print “DATA NOT WI WIN, TOLERANCE * 


TRAP CSERSOFT 
-WORD 2607 
»WORD €2607 
. WORD C 
end "RUN TEST 24 TO CALIBRATE” 
MOV OMSG26, -¢ 
MOV PRO 
TRAP CSPNTX 
ADO 04,SP 
brench to BGNSEG if does on error set 
TRAP CSCLPl 


SEQ 0215 


ce ee 
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TEST 26 - Loopbeck Test using ADFO1. 


071712 
071716 
071720 
071724 
071726 


071732 
071734 
071736 
071742 
071744 
071750 
071750 
071750 


071752 


072022 
072024 


072030 
072030 
072032 


072034 
072036 
072040 
072042 
072044 


072046 
072050 


072052 
072065 


072100 
072141 


072221 
072247 
072302 


56 072345 


072372 


020137 


104405 


000137 


104432 
001064 


000000 
000000 
000001 
000001 
000000 


000000 
000000 


072046 
072042 
072042 


072050 
071200 


072046 
072042 
002226 


072046 
071010 
002234 


003032 
003032 


070606 


000004 





4208: SUB 
430%; DEC 


JMP 
440%: ENDSEG 


460%: EXIT TST 


ADDST: .WORD 
CHANGE: .WORD 
PAT: . WORD 
ALTST: .WORD 
LASTV: .WORD 
CHAN: . WORD 
BLOCK: .WORD 

»NLIST 


N261: .ASCIZ 
N262: .ASCIZ 


TSHD26:: . ASCIZ 
TSNS26:: .ASCIZ 


T261: -ASCIZ 
T262: .ASCIZ 
T263: .ASCIZ 
1264; -ASCIZ 


E2600: .ASCIZ 








Jl 


SEQ 0216 
Ri, CHAN + ere we checking the current channel ? 
420% ; if not, branch 
ALTST,Ri + else go to alternate channel 
430% s (this does nothing if not 
ALTST,R1 ; in alternating mode) 
R4 + @ll buffer checked ? 
390$ ; if not, back 
BLOCK + 64 DMA blocks done ? 
440$ +; if yes, branch 
300$ + else, do more 
10007$;: 

TRAP CSESEG 
CHAN,R1 i t current channel 
ALTST,R1 + if alternating, skip next channel 
R1,LSTCHN + @ll channels done ? 
450$ ; if yes, exit test 
Ri ; else, go to next channel 
Ri, CHAN + and seve new channel number 
280$ ; test the next channel 
QVMODE + is quick verify mode selected ? 
460$ ; if yes, exit test 
ITRCNT + else, increment iteration counter 
ITRCNT , 04 ; iterations completed ? 
460% ; if yes, branch 
190$ + else do another iteration 

TRAP CSEXIT 

«WORD 1L10063-. 
0 + store for ADFO1 eddress 
0 + store for "CHANGE PARAMETERS” answer 
1 ; store for "PATTERN" answer 
1 + store for "ALTERNATING CHANNELS” answer 
0 + remp up or down velue 
0 + current channel to test 
0 + counter for number of blocks DMA'd 
BEX 
70.0 / ; store for first input velue string 
410000.0 / s store for second input velue string 


/#8S28ALOOPBACK TEST USING ADFO1SN/ 
/S8S28ALOOPBACK TEST USING ADFO1 - NOT SELECTEDSN/ 


/ADFO1 DRX11-C ADDRESS/ 

/CHANGE LOOPBACK PARAMETERS/ 
PATTERN (1*RAMP, 2*RANDOM, 3=PAIR)/ 
ZALTERNATING CHANNEL S/ 


/ADFO1 DRX11-C REGISTER ADDRESSING ERROR/ 


ee ee ee 


ee eae 


———— 





ee - — oe 


K1 
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TEST 26 


8359 
8360 


- Loopbeck Test using ADFO1. 


072442 101 
072504 124 
072531 105 
072554 117 


072622 104 
072671 101 
072744 045 
073016 114 
073074 125 
073105 102 
073116 

073116 


073116 104401 


106 E2601: 
115 E2602: 
122 E2603: 
124 E2604: 
130 £2605: 
123 E2606: 
045 MSG26: 
117 E2607: 


111 UNIERR: 


120 BIERR: 


a ee ee -—™” 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 
.EVEN 


ENDTST 


/ADFO1 NOT IN SAME MODE AS AAFO1-A/ 

/TIMEOUT ON DMA INPUT/ 

ZERROR ON DMA INPUT/ 

/OUTPUTS NOT ZERO AFTER A SYSTEM RESET/ 
/DRX11-C SCR INCORRECT IN LOOPBACK TEST/ 

/ACS REGISTER INCORRECT AFTER LOOPBACK TEST/ 
/SNSARUN TEST 24 TO CALIBRATE THE MODULESN/ 
/LOOP BACK DATA NOT WITHIN SPECIFIED TOLERANCE/ 


/UNIPOLAR/ 
/BIPOLAR/ 
BEX 


L10063: 
TRAP CSETST 


SEQ 0217 


Li 
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TEST 27 - Loopbeck Test using IEX11-A Interface. 
.SBTTL TEST 27 - Loopback Test using IEX11-A Interface. 


| Tadind 


EE, ae ee aS ee Se --—™ 


- oF oF oF SF SF SF Ge Ge Se Se Ge Ge SF Ge Gs SF Gs Gs Ge Se Ge GH Ge Ge Ge Ge Ge SH Ge Ge Ge Ge Ge Ge Ge Se Ge Ge GH Ge GH GH GH Ge Ge Ge Ge Ge SH Ge oe oe 
‘ 


This tests that the AAFO1-A conversion accuracy is within a 
specified tolerance. The output from the AAFOI-A is read using 
® digitel voltmeter connected to an IEX11-A interface. This 
ahd more accurate measurement than the ADFO1 used in test 
6. 


The test begins by requesting the following peremeters : 
IEX11-A ADDRESS (0) 164100 ? 


In reply, you should enter the address of the IEX11-A to which 
e digitel voltmeter is connected. This IEX11-A will be used to 
reed beck the outputs of the AAFO1-A. This question is only 
asked following o “stert” command. 


CHANGE LOOPBACK PARAMETERS (L) ? 


This ellows the peremeters used for loopback —s to be 
changed. Answering “no” forces the use of the default 
peremeters, which cause the most thorough testing, and 
eliminates the need for any more questions. If “Y" is typed, the 
following questions ere also asked : 


LOOPBACK TOLERANCE IN MILLIVOLTS (A) 10.0 ? 


If the difference between output end input velues is greater 
then this velue, ean error message wil] be output. 


PATTERN (1=RAMP, 2*RANDOM, 3=FAIR) (0D) 1 ? 


This selects how output is made from the AAFO1-A. A sequence of 
4095 decimal outputs is made. If “1” was typed in response to 
this question, the output ramps up from the lowest voltage to 
the highest and beck agein. If “2” is selected, random values 
ere output. Responding with “3” results in the output 
alternating according to the answers to the next two questions. 


FIRST VALUE IN MILLIVOLTS (A) 0.0 ? 
SECOND VALVE IN MILLIVOLTS (A) 10000.0 ? 


After the user has typed in each value, the program prints out 
the ectuel value which will be output and its equivalent bit 
pettern in octel. 


After the perameters have been input, e system reset is made. 


Using the channel selected es “FIRST CHANNEL” in the stertup 
questions, 4096 outputs ere made. After each output, the IEX11-A 
is used to check that the resulting voltege is within the 
specified tolerance. At the end of each pass, the maximum 
deviation from the expected value is printed. 


SEQ 0218 


Ee 


me 


M1 
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TEST 27 
6433 


6441 
6442 


- Loopback Test using IEX11-A Interface. 


073120 
073120 


073120 
073120 
073122 
073126 
073130 
073134 
073136 
073136 
073142 
073146 
073150 
073152 
073156 
073160 
073160 
073164 
073170 
073172 
073174 
073200 
073200 
073202 
073204 
073210 
073212 
073212 
073214 


073216 
073222 
073230 
073234 


104421 
032700 
001426 
005737 
001411 


012746 
012746 


160000 
177776 


005737 
001133 
005237 


104443 
000404 


001000 
003030 


074757 
000001 


003030 


003016 
003016 


107376 





10$: 


20%: 


30$: 


BGNTST 

RFLAGS RO 

BIT @PNT ,RO 
BEQ 20% 

TST STAFLG 
BEQ 10$ 


PRINTF #TSHD27 


BR 30$ 
PRINTF #TSNS27 


EXIT TST 

TST STAFLG 

BNE 30$ 

EXIT TST 

CLR ITRCNT 

BIS @RES , BRXSCR 
JSR PC,WTSOO 


JSR PC,WTSOO 


; Request the test perameters 


40$: 


TST QFLAG1 
BNE 40$ 


TST QFLAG2 
BNE 50$ 


INC QFLAG2 
GMANIL 1262,CHANGE ,377,NO 


T27:: 


read operator flags 
TRAP CS$RFLA 
print test headers ? 
if not, brench 
wes test specifically selected ? 
if not, branch 
else, print test header 


MOV @TSHD27, 


MOV SP ,RO 
TRAP CSPNTF 
ADO 04,SP 


end stert the tes 
print “TEST NOT SELECTED 


MOV SP RO 
TRAP CSPNTF 
ADO 04,SP 


and skip the test 
TRAP CsExIT 


-WORD 110064-. 


wes test specifically selected ? 
if yes, brench 
else skip the test 
TRAP CSExIT 


-WORD L110064-. 


cleer iteration counter 
reset the DRX11-C 

weit for 1 millisecond 
(2500 microseconds) 


hes eddress elready been asked ? 
if yes, brench 


; else flag thet we ere asking now 


QFLAG1 
GMANID 1270, TExADD, 0,-1,160000,177776,YES ; “IEX “ADDRESS” i. 


4 TSLOLIM 
. WORD TSHILIM 
10000$: 
stert, restert or continue command ? 
if not, branch 
else fi questions ere being asked 
“CHANGE PARAMETERS ?” 
TRAP C$GMAN 


BR 100018 





SEQ 0219 


-(SP) 


Ni 
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TEST 27 


8480 
6481 


8489 


- Loopbeck Test using IEX11-A Interface. 


073310 
073312 


010137 


104443 
000406 





R 
PRINTF 


JSR 
PRINTF 


JSR 


CHANGE 
59$ 
PC,DECIN 


R1,LTOL1 
R2,LTOL2 
T263,PAT,DO,-1,1,3,YES 


PC ,DECOUT 
@OCTOUT ,FVAL 


PC,DECIN 


PC ,,DECOUT 


— << ee ee ee ee - 


SEQ 0220 
-WORD CHANGE 
«WORD TSCODE 
«WORD T262 
‘ 377 
10001$: 

check the enswer 

if no, branch 

decimal input 

“LOOPBACK TOLERANCE °IN MV 2?” 

store for tolerance value string 

end seve tolerance 

hi end low word 

“PATTERN ?” 
TRAP C$GMAN 
BR 100023 
.WORD PAT 
.WORD TSCODE 
-WORD 1263 
. WORD -1 
.WORD TS$LOLIM 
-WORD TSHILIM 

10002$: 

peir selected ? 

if not, don't ask for velues 

decimel input routine 

“FIRST VALUE” oe 

store for first velue string 

convert to 12 bit pettern 

and seve first velue 

convert back to actuel output velue 

“ROUNDED TO " 
MOV @RNDOUT , -( SP) 
MOV #1,-(SP) 
MOV SP ,RO 
TRAP ey 
ADD 04,SF 

“ANNAN .ann" 

“MILLIVOLTS - OCTAL VALUE nnnnn” 
MOV FVAL ,-(SP) 
MOV @OCTOUT, -(SP) 
MOV @2, - (sp) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 06,SP 

decimel input routine 

“SECOND VALUE” prompt 

store for second velue string 

convert to 12 bit pettern 

end seve second velue 

convert beck to ectuel output velue 

“ROUNDED TO ” 
MOV @ORNDOUT , -( SP) 


MOV sP 
TRAP CSPNTF 
ADO 04,5? 


“ANAAN Ann 


=> Se —_— ee re ee ee 








Be 
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! SEQ 0221 
— 27 - Loopbeck Test using IEX11-A Interface. 
' 8490 073542 PRINTF @OCTOUT,S'’AL + "MILLIVOLTS - OCTAL VALUE nnnnn” 
073542 013746 003036 MOV SVAL , -( SP) 
073546 012746 023341 MOV G0C TOUT, -(SP) 
073552 012746 000002 MOV @2,-(SP) 
073556 010600 MOV SP ,RO 
073560 104417 TRAP CSPNTF 
ane 073562 062706 000006 ADD 06,SP 
F 
pote ' 3 Check that the IEx11-A is there 
: 
8494 073566 50$: SETVEC 04, @ONXM, OPRIO7 ; set up NXM trep service routine 
073566 012746 000340 MOV OPRIO7, -(SP) 
073572 012746 032204 MOV @ONXM, - (SP) 
073576 012746 000004 MOV 04,-(SP) 
073602 012746 000003 MOV 63,-(SP) 
073606 104437 TRAP C$SVEC 
073610 062706 000010 ADD @10,SP 
8495 073614 013701 032022 MOV IEXADD,R1 ; get first register eddress 
8496 073620 012702 000010 MOV 08. .R2 ; test 8 registers 
ooee 073624 005003 CLR R3 ; clear the error flag 
8499 073626 60$: BGNSEG 8 
073626 104404 TRAP C$BSEG 
8500 073630 005037 002770 CLR NXMFLG ; clear the NXM flag 
8501 073634 005711 TST (R1) ; test register eddress 
8502 073636 005737 002770 TST NXMFLG ; wes there e trap ? 
8503 073642 004737 026306 CALL INSERT ; skip branch if error insert selected 
8504 073646 001405 BEQ 70% : if no trep, branch 
8505 073650 005203 INC R3 i; else fl the error 
8506 073652 ERRHRD 2700,E2700,ERONR ; print “ADDRESSING ERROR” 
073652 104456 TRAP CSERHRD 
073654 005214 -WORD 2700 
073656 075177 -WORD £2700 
073660 023460 .WORD ERONR 
8507 073662 70%: ENOSEG ; 
073662 100033: 
a 073662 104405 TRAP CSESEG 
8 
8509 073664 062701 000002 ADO @2,R1 i point to the next register 
8510 073670 005302 DEC R2 ; ell registers tested ? 
oat 073672 001355 BNE 60$ ; if not, branch 
851 
8513 073674 005703 TST RS ; wes there en error ? 
8514 073676 001404 BEQ 80% ; if not, branch 
8515 073700 d00U L$LUN ; else drop the unit under test 
| 073700 013700 002074 MOV LSLUN,RO 
073704 104451 TRAP cs000U 
6516 073706 DOCLN + end run the cleen up routine 
517 073706 104444 TRAP CSOCLN ! 
851 
6518 073710 805: CLRVEC 04 ; restore DRS trep cetcher ' 
073710 012700 000004 MOV 04 ,R0 ' 
| - alae 104436 TRAP CsCvec 
j 1 | , 
oot ; Reset the AAFO1-A end set up the conversion rate 
; ' 
, 8522 073716 005037 003032 CiR ITRCNT ; clear iteration counter 


—— ES 


—_ wt: a Se. LL LL LLL LLL LLL LLL LLL LLL LLL A 
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TEST 27 - Loopbeck Test using IEX11-A Interface. 
8523 073722 052777 000040 106676 BIS ORES , BORXSCR 
8524 073730 004737 026106 JSR PC ,WTS00 
8525 073734 004737 0261 JSR PC ,WTSO00 
8526 073740 013701 002230 MOV CTIME ,Ri 
8527 073744 052701 040000 BIS OPCR,R 
6528 073750 010177 106660 MOV R1, BORXDBR 
oeae 073754 052777 000001 106644 BIS OFNCTO, @ORXSCR 
’ 
oane ; Set up the output buffer 
: 
8533 073762 005037 074712 90%: CLR HOEV 
8534 073766 005037 074714 CLR LOEV 
6535 073772 BGNSEG 
073772 104404 
6536 073774 012701 003040 MOV OBUF OUT ,R1 
8537 074000 023727 072040 000001 CMP PAT, @1 
8538 074006 001024 BNE 130% 
8539 074010 005737 074710 TST UP SW 
8540 074014 001011 BNE 1108 
6541 074016 005237 074710 INC UP SW 
8542 074022 CLR R2 
8543 074024 010221 100%: MOV R2,(R1)« 
8544 074026 INC 
8545 074030 020227 007777 CMP R2, 04095 
8546 074034 003773 BLE 00% 
8547 074036 BR 1708 
8548 074040 005037 074710 110%: CLR SW 
8549 074044 012702 007777 MOV 04095. ,R2 
6550 074050 010221 120%: MOV R2,(R1)« 
6551 074052 005302 DEC R2 
8552 074054 001375 BNE 120% 
8553 074056 BR 1708 
8554 
8555 074060 023727 072040 000003 150%: CMP PAT, @3 
8556 074066 001011 BNE 150% 
8557 074070 012702 004000 MOV 02048. ,R2 
6558 074074 013721 003034 1408: MOV FVAL ,CR1)« 
8559 074100 013721 003036 MOV SVAL ,CR1)« 
8 074104 DEC R2 
6561 074106 001372 BNE 1403 
ease 074110 000415 BR 1708 
8564 074112 023727 072040 000002 150%: CMP PAT, 02 
6565 074120 001011 BNE 170% 
8566 074122 012702 010000 MOV 04096. ,R2 
8567 074126 004737 032142 160%: JSR PC ,RANDOM 
8568 074132 042700 170000 BIC #170000 ,RO 
8569 074136 010021 MOV RO, CRI )« 
8570 074140 005302 DEC 
6571 074142 001371 BNE 160% 
8572 ; 
$578 ; Output to the AAFO]-A 
; 
sete 074144 012705 003040 170%: MOV BUF OUT RS 
8577 074150 012777 020000 106456 180%: MOV OCTA, @ORXDBR 
8578 074156 052777 000001 106442 81S @FNCTO, @ORXSCR 


Ce 


SEQ 0222 


reset the DRX11-C 

weit for 1 millisecond 

(2500 microseconds) 

get the selected conversion time 
address the PCR 

and enter the conversion time 
trensfer to PCR 


cleer meximum deviation high 
end low words 


TRAP 
get eddress of buffer in Ri 
remp pettern selected ? 
if not, brench 
wes the lest remp upwerds ? 
if yes, brench 
else fleg this is upwerd remp 
stert with 0 
load the buffer 
next velue 
ell velues written ? 
if not, write next 
9° to set up the control teble 

leg this is downwerd remp 
stert with highest velue 
write velue 
next velue 
until ell done down to 0 
go to set up control teble 


CS$BSEG 


pettern peir selected ? 

if not, branch 

set up 4096 word elternating pattern 
first selected velue 

second selected value 

buffer set up ? 

go to set up control teble 


rendom pettern selected ? 
if not, brench 

set up 4096 words 

get @ rendom pettern 

use only l2 bits 

seve the pattern 

buffer set up ? 

if not, go beck 


get the address of the output buffer 


eddress control word 0 
in CTA register 





De 


HARDWARE TESTS MACRO VOS.00 Friday 01-Feb-85 08:58 Page 104-4 


Loan 27 
8579 
8580 


| 8626 


- Loopbeck Test using IEX11-A Interface. 


074164 
074170 
074174 
074200 
074206 
074212 


074220 


013702 
052702 


052777 


013701 
002 


026114 


031016 


032140 
026306 


003020 
106340 
003022 


003020 


SEQ 0223 


MOV FSTCHN,R2 i get first selected channel 
BIS OCWR ,R2 i; for CWR register in R2 
MOV R2, xXDBR + set up to output on selected channel 
BIS @FNCTO, @ORXSCR ; transfer to CWR 
MOV CRS), @ORXOBR ; output the dete 
BIS @FNCTO, @DRXSCR } to the DBF register 
’ 
+ Wait for the conversion to complete 
’ 
MOV CTIME,R1 ; get the conversion time 
CLR R2 i; high byte is zero 
JSR PC,OIV + divide by 
125. + 125 
1908: TST RY + loop until R1I/R2 is zero 
BEQ 210% ' 
2008: DEC R1 ’ 
JSR PC ,WT25 ; weit 25 microseconds 
BR 190$ ' 
2108: TST Re i 
BEQ 220% ; totel timeout = number of conversions 
DEC R2 ; * conversion time * 2 
BR 200% ’ 
’ 
; Check that the ACS register is correct 
' 
220%: MOV #ACS ,GOOD ; get expected ACS contents 
MOV @ACS , BORXDBR ; address the ACS register 
MOV @ORXDBR , BAD + and get the ectual contents 
MOV BAD ,RO + get the contents into RO 
BIC OTC<UNI!CMP>,RO + and isolate uncertain bits 
BIS RO ,GOND ; set them in GOOD if they are set 
CMP BAD ,GOOD i; contents correct ? 
CALL INSERT + skip branch if error insert selected 
BEQ 230% ; branch if ACS is OK 
ERRSOFT 2701,€2701,EGB8 + else print “ACS INCORRECT” 
TRAP CSERSOFT 
-WORD 2701 
oe saree 
230%: CKLOOP ; brench to BGNSEG if seep on error set 
TRAP CSCLPi 
' 
3 Check thet the loopbeck dete is within tolerence 
’ 
JSR PC, IEXIN + get looped beck velue 
MOV R1,R3 s+ high word in RS 
MOV R2,R4 + low word in R4 
TST ERFLA t error on input ? 
CALL INSERT + skip branch if error insert selected 
BEQ 40% + brench if no input error 
ERRSOFT 2702,E2702,EN + elee print “ERROR ON INPUT” 
TRAP CSERSOFT 
-WORD 2702 
.WORD €2702 
.WORD EN 
240%: CKLOOP + branch to BGNSEG if loop on error set 


J 





Ee 
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074376 


8628 074400 
8629 074402 


104406 
011501 
004737 026352 


001750 
000002 


1 000002 2504: 
103013 


022626 
160216 
002004 
001750 
000002 
000002 2604: 


000002 2708: 


026306 


074704 
8649 074470 


074706 
0263C6 
2808: 


290%: 


000002 074712 


074714 
3008; 
3108; 


000002 074712 
074714 


023040 


074150 
320%: 


074574 
1 
8672 074576 


104405 


013701 
013702 


012746 


074712 3308; 


074714 
075425 





MOV 
MOV 
PRINTF 





(RS), RI 
PC, DACON 


<«R1,R2> 
R4, (SP) 


2508 
#1000. , (SP) 
2(SP) 
R3,2¢SP) 
2708 
(SP)+,(SP)-« 
= 3,R4> 
2, (SP) 
3088 
#1000. , (SP) 
2(SP) 
R1i,2(SP) 
2(SP),LTOLI 
INSERT 
290 
2808 
(SP), LTOL2 
INSERT 
2908 
2703,€2703, EGBDEC 


2(SP),HDEV 
310% 


(SP)+,(SP)- 

CRS )« 

RS, OBUFOUT +8192, 
320% 

1808 


@0EV1 


—— eee —_— Pe ee —— _ = 


SEQ 0224 


TRAP C#CLP1 


get current output pettern 
convert to anelogue velue in Ril & R2 


save the velue 

subtrect low actuel “fren low good 
branch if pn cerry 

else add 1000 

from mg word 

subtract high ectuel from high good 


if no cerry, branch 

elee cleer the steck 

end put actuel values on the steck 
subtract low good from low ectuel 
branch if no cerry 

else add yor 

from hi 
subtrac high ~~ from high ectuel 
difference between good and ectuel 

is now on the steck 

compere difference and tolerance hi 
skip branch if error insert selecte 
brench if difference is low e 

report error if difference too high 

if equel, must compere the low words 
skip brench if error insert selected 
brench if difference is low oneven 
else, print "DATA NOT a TOLER ANCE ” 


CSERSOFT 
. 703 
«WORD E2703 
-WORD EGBDEC 
brench to BGNSEG if 1 on error set 
TRAP CSCLPi 


compere deviation hier word with highest so fer ? 


if lower, don't do anythi 

if higher, seve the new velue 

if the seme, compere the low words 
if lower or equal, do nothing 

save the new deviation high 

end low words 

tidy up the steck 


point to next output velue 
ell velues in buffer output ? 
if yes, brench 


else jump beck 


100048; 
TRAP CSsESEG 
seve the — 


st deviation high word 
end iow 


print "MAXIMUM DEVIATION = * 
MOV @DEV1, - (SP) 





; 
—_— 


a 
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8675 
8676 


074612 
074616 
074620 
074622 
074626 
074632 
074632 
074636 
074642 
074644 
074646 


074652 
074656 
074660 
074664 
074672 
074674 


074700 
074700 
074702 


074704 
074706 
074710 
074712 
074714 


074716 
074731 
074744 


074757 
075034 


075116 
075136 
075177 
075241 
075320 
075347 


075425 
075456 


075476 
075476 
075476 


012746 
010600 
104417 
062706 
004737 


012746 
012746 
010600 
104417 
062706 


005737 
001010 
005237 
023727 
001402 
000137 


104432 
000574 
000012 
000000 
000000 


000000 
000000 


104401 


000001 
000004 
027640 
075456 
000001 
000004 
002234 


003032 
003032 


073762 


000001 


PC ,DECOUT 
#DEV2 


QVMODE 
340$ 
ITRCNT 
ITRCNT, #1 
340$ 

90$ 


BEX 


40.0 
410000.0 
410.0 


/8S28ALOOPBACK TEST USING 
/8S28ALOQOPBACK TEST USING 


/IEX11-A ADDRESS/ 


Fe 


/ 
/ 
/ 


SEQ 0225 

MOV #1,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #4,SP 

KKK, KKK 

"MILLIVOLTS” 
MOV #DEV2,-C SP) 
MOV #1,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #4,SP 


is quick verify mode selected ? 
if yes, exit test 

else, increment iteration counter 
iterations completed ? 

if yes, branch 

else do another iteration 


TRAP 
. WORD 


store for tolerance high word 
store for tolerance low word 
ramp up or down switch 
deviation high word 

deviation low word 


CSExIT 


store for first input value string 
store for second input value string 
store for tolerance input string 


IEX11-A INTERFACESN/ 
IEX11-A - NOT SELECTEDSN/ 


/LOOPBACK TOLERANCE IN MILLIVOLTS/ 
/IEX11-A REGISTER ADDRESSING ERROR/ 
ZACS REGISTER INCORRECT AFTER OUTPUT TO IEX11-A/ 


ZERROR ON IEX11-A INPUT/ 


/LOOP BACK DATA NOT WITHIN SPECIFIED TOLERANCE/ 


/SNSAMAXIMUM DEVIATION = / 
/#A MILLIVOLTSSN/ © 


BEX 


JSR 
PRINTF 
TST 
BNE 
INC 
CMP 
BEQ 
JMP 
340$ EXIT TST 
LTOLi: .WORD 
LTOL2: .WORD 
UPSW: . WORD 
HDEV . WORD 
LDEV: . WORD 
NLIST 
N271: ASCIZ 
N272 ASCIZ 
N27T ASCIZ 
TSHD27:: .ASCIZ 
TSNS27:: .ASCIZ 
T270: .ASCIZ 
T271: .ASCIZ 
E2700: .ASCIZ 
E2701: .ASCIZ 
E2702: .ASCIZ 
E2703: .ASCIZ 
DEV1i: .ASCIZ 
DEV2: .ASCIZ 
-LIST 
EVEN 
ENDTST 


L10064; 


TRAP CsETST 


L10064-. 





— ome ce i —— rm: TE I - —- 








Ge 
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| SEQ 0226 
| TEST 28 - Direct Read/write Test. 
a7i8 .SBTTL TEST 28 - Direct Read/write Test. 
8720 bee 
8721 + This allows the registers of the AAFO1-A to be reed from or 
8722 ; written to (where the hardware allows). Multiplexing through the 
8723 ; DRX11-C to the AAFOI-A and further to the control teble is 
ores ; performed by the program. 
’ 
8726 + Normally, the program will use unit 0. However, any unit can be 
8727 ; selected by starting the test with the /UNIT switch (see section 
4h 4 + 2.2 of the user documemtation). 
’ 
8730 ; Registers are specified using 3 or 4 character mnemonics. After 
6731 ; @ register has been read and if required a new value input, 
8732 ; another register will automatically be opened according to the 
Hh, ; sequence shown below. 
: 
8735 ; => BARI SCR -> DBF -> control word addresed by CTA 
8736 i! WCR1 COR ! ACS ! next control word 
8737 .% BAR2 ADR ! PCR ! next control word 
8738 B. WCR2 DBR ! CTA ! ! 
8739 1? wco ! ! v 
8740 a ACO ! ! ! ! last control word 
8741 S eee ee “--- 
8742 s! ! t ! 
8743 $ sees ! ! 
8744 a Sead Se ee 
8745 H 
8746 + To exit from any sequence, "control Z" can be typed to return to 
8747 3; the “REG” prompt. ryeccs "CONTROL C” returns the user to the 
8748 ; supervisor. The following example shows how the test can be 
da i; used, 
8750 t-- 


‘ 
_ 


——_— a cr i ee 





He 
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| TEST 28 - Direct Read/write Test. 
8752 075500 


003030 


8760 075536 
8761 075540 
076772 
012746 000001 


000004 
8762 075560 


8763 075564 003030 
8764 075570 


8765 075572 


075574 
8766 
8767 075576 
075576 
075600 


0013/4 


076520 
076512 


000012 
076734 


023711 
001406 


076514 000002 
000006 


017702 104744 
000010 104736 
104734 076510 
010277 104724 
076512 


10$: 


20%: 


ASKREG: 


10%: 
20%: 


30$: 


OPB 
10$: 


ARI: 


BGNTST 


RFLAGS 


PRINTF 


BR 
PRINTF 


RO 
PNT ,RO 
20$ 
STAFLG 
10$ 
#TSHD28 


ASKREG 
#TSNS28 


EXIT TST 


TST 
BNE 


STAFLG 
ASKREG 


EXIT TST 


GMANID REGQ,REG,A,377,1,4, YES 


#REGTAB ,R1 
REG,(R1) 
30% 


#12,R1 
R1, @TABEND 
ASKREG 


10% 
REG+2,2(R1) 
20% 

86(R1) 
@ORXCOR , R2 
10(R1), @ORXCOR 
@ORXADR , CONS 


R2, @ORXCOR 
(R1),REG 








eee ee ee eee 


SEQ 0227 


T28:: 

read operator flags 
TRAP CSRFLA 

print test headers ? 

if not, branch 

was test specifically selected ? 

if not, branch 

else, print test header 
MOV @TSHD28 , -( SP) 
MOV @1,-CSP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04,SP 

and start the tes 

print "TEST NOT SELECTED" 
MOV @TSNS28, -( SP) 
MOV #1,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04,SP 

and skip the test 
TRAP CsEXIT 
«WORD L10065-. 

was test specifically selected ? 

if yes, branch 

eles skip the test 
TRAP CsEXIT 
«WORD 1L10065-. 

prompt for ea register 
TRAP C$GMAN 
BR 10000$% 
«WORD REG 
«WORD TSCODE 
«WORD REGQ 
«WORD 377 
«WORD TSLOLIM 
-WORD TSHILIM 


100008: 
get the table address 
compere ist half of register mnemonic 
brench if match 
else go to next line of teble 
at the end of the teble ? 
if yes, ask for the register again 
else check the next mnemonic 
compere 2nd half of register mnemonic 
if no match, keep looking 
else jump to service eddress 


seve the current COR contents 
address the selected register 
save the contents 

restore the original COR contents 
seve the new register mnemonic 


_— 


~—— —— Fe ee 





Te 
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016137 000002 


104443 
000406 
076510 
000032 
076512 
177777 


000000 
177777 


8784 075710 
8785 075716 
075716 
075720 
075722 
075724 
075726 
075730 
075732 
075734 
075736 
8786 075736 
8787 075742 
8788 075746 
8789 075752 
8790 075754 
8791 075762 
8792 075764 
8793 075772 
8794 076000 
8795 076004 
8796 076010 
8797 076012 
8798 076016 


8800 076020 
8801 076024 
8802 076030 


177562 
177600 
000032 


002000 


000010 
076510 
000012 
076614 


076520 


013702 
066102 
011237 
011137 
016137 


104443 


002626 
000010 
076510 
076512 
000002 


177562 
177600 
000032 


076510 


8813 076120 


8815 076122 
8816 076126 
8817 076134 
8818 076142 
8819 076146 
8820 076154 
8821 076160 
, 8822 076166 


017702 
016177 
017737 
010277 
042737 
011137 
016137 


076514 


000010 


104636 
104632 


076514 


104500 
076510 


076510 
076514 


208: 


OPSCR: 


OPDBF : 
10$: 


MOV 
GMANIO 


2(R1),REG+2 


REG,CONS,O,-1,0,-1,YES 


80177562 ,RO 
#177600,RO 
RO, #32 
ASKREG 
#2000, 10(R1) 
20$ 


10(R1),@0RXCOR 
CONS , AORXADR 
#12,R1 

R1, @SCRTAB 


10$ 
OREGTAB,R1 
10$ 


DRXSCR,R2 
10(R1),R2 
(R2),CONS 
(R1),REG 
2(R1),REG+2 


REG,CONS,0O,-1,0,-1, YES 


80177562 ,RO 
#177600,RO 


@DRXDBR , R2 
10(R1),@DORXDBR 
@DRXDBR , CONS 
R2,@D0RXDBR 
#170000, CONS 
(R1),REG 
2(R1),REG+2 


for printin 
accept new input 


TRAP C$GMAN 
BR 10001$ 
-WORD CONS 
-WORD TSCODE 
-WORD REG 
«WORD -1 
-WORD TS$LOLIM 
«WORD TS$HILIM 


10001$: 
read the keyboard buffer 
isolate the cheracter bits 
was control Z typed ? 
if yes, request new register 
don't ellow writing 
to the WCO and ACO registers 
address the selected register 
and write the new contents 
go to next register in sequence 
out of this loop ? 
if not, open next register 
else start the loop again 
and open BARI 


get the SCR address 

offset to the selected register 
save the contents 

seve the new register mnemonic 
for printin 

eccept new input 


TRAP C$GMAN 
BR 10002$ 
-WORD CONS 
-WORD TSCODE 
-WORD REG 
-WORD -1 
-WORD TSLOLIM 
«WORD TS$HILIM 


10002$: 
read the keyboard buffer 
isolete the cheracter bits 
was control Z typed ? 
if yes, request new register 
else write the new contents 
go to next register in sequence 
out of this loop ? 
if not, open next register 


save the current DBR contents 
eddress the selected register 
save the contents 

restore the original DBR contents 
remove the subeddress 

save the new register mnemonic 
for printing 


oud REG,CONS,0O,-1,0,7777, YES ; accept new input 





—— —_—_ = 


SEQ 0228 


a 





Je 
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| 


076166 
076170 
076172 
076174 
076176 
076200 
076202 
076204 
076206 
076206 
076212 
076216 
076222 
076224 
076230 
076236 
076244 
076252 
076260 
076264 
076270 


076272 
076276 
076304 
076310 


076312 
076316 
076324 
076332 
076340 
076344 
076352 
076356 
076364 
076366 
076372 
076376 
076376 
076400 
076402 


eee ero 


104443 
000406 


017702 
012777 
017703 
010304 


010477 
052777 
012777 
017737 
010377 
052777 
010277 
042737 
010405 
042705 
004737 


013777 


177562 
177600 
000032 


075576 
000010 


000012 


177562 
177600 
000032 


075576 


030000 
076510 


076510 20%: 
104370 
104362 
104346 


OPCWR: 


104330 


10$: 
104302 
104302 
076510 


104254 
076510 


20%: 
104154 
076510 
104146 





80177562 ,RO 
#177600 ,RO 
RO, #32 


10(R1),CONS 
10(R1),@0RXDBR 
CONS , BORXDBR 
#FNCTO,@DRXSCR 


@ORXDBR , R2 
@CTA,@ORXDBR 
@ORXDBR ,R3 
R3,R4 


R4, @ORXDBR 
#FNCTO, @ORXSCR 
@CWR , BORXDBR 
@DORXDBR , CONS 
R3,@ORXDBR 
@FNCTO, BORXSCR 


CWROUT,CONS,O,-1,0, -1,YE 


80177562 ,RO 
#177600 ,RO 

RO, 032 

20% 

ASKREG 

R4, BORXDBR 
#FNCTO, @ORXSCR 
@CWR , CONS 
CONS , @ORXDBR 


‘ 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
Ss 


TRAP C$GMAN 
BR 10003$ 
- WORD 

«WORD TSCODE 
-WORD REG 
«WORD -1 
«WORD TSLOLIM 
«WORD TS$HILIM 


10003$: 
read the keyboard buffer 
isolate the character bits 
was control Z typed ? 
if not, branch 
else request new register 
set the subeddress bits 
address the selected register 
and write the new contents 
transfer to the register 
go to next register in sequence 
out of this loop ? 
if not, open next register 


save the current DBR contents in R2 
address the CTA 

get the current CTA contents in R3 
and R4 


address the CTA 
transfer to CTA 
read the control word 
save the contents 
restore the original CTA contents 
transfer to CTA 
and the original DBR contents 
remove the subaddress 
t CTA contents 
isolate the CWR number 
set up "CWR xxxx” message 
; accept new input 


TRAP C$GMAN 
BR 10004$ 
«WORD CONS 
«WORD TSCODE 
«WORD CWROUT 
-WORD -1 
«WORD TSLOLIM 


.WORD TS$HILIM 
10004$: 
read the keyboerd buffer 
isolate the cheracter bits 
wes control Z typed ? 
if not, branch 
else request new register 
reset the CTA to 
the current control word 
set the subeddress bits for the CWR 
and write the new CWR contents 





SEQ 0229 


* eee ee 
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8862 076466 
8863 076474 
8864 076476 
8865 076502 


| 
| 8867 076504 
076504 


076506 
8868 
8869 076510 
8870 
| 
| 
| 


8872 076512 


8878 076520 


8896 076734 
8897 076772 


8899 077047 


052777 
005204 
042704 
000703 


104432 
000462 
000000 


123 


052103 


045 
045 


122 


000001 
002000 


103 


030522 
030522 


077162 


104132 


122 


SCRTAB: 


Ke 


BIS ee 


INC 

BIC #2000 ,R4 
BR 10$ 

EXIT TST 

-WORD O 

-NLIST BEX 


-ASCIZ /SCR / 
-EVEN 


String 


: “BA,”R1,0, 


Service 
Address 


OPBARI, 
OPBAR1, 
OPBARI, 
OPBARI, 
OPBARI, 
OPBAR1, 


OPSCR, 
OPSCR, 
OPSCR, 


transfer to CWR 

get next CWR address 
modulo 1024 

and open next CWR 


- of oF oe 


TRAP CSExIT 
«WORD L10065-. 


; store for new register contents 


; store for operator input 


Offset or 
subeddress 


OBF 
ACS 
PCR 
CTA 


::.ASCIZ \sS2SADIRECT READ/WRITE TESTSN\ 


-ASCIZ \sS2SADIRECT READ/WRITE TEST - NOT SELECTEDSN\ 


-ASCIZ /REG/ 
-LIST BEX 
EVEN 


3; Routine to set up string “CWROUT” to contain “CWR xxxx", where xxxx 


; is conteined in RS. RS is destroyed. 
F 
SETCWR: 


10$: 


20%: 
30$: 





MOV @CWRN ,RO 
MOV 


BLT 20$ 

INCB (RO) 

SUB #1000. ,RS 
BR 10% 

INC RO 


CMP 85,0100. 


get eddress of CWR number 
set it to “0000” ascii 


number greeter then 1000 ? 

if not, branch 

else increment the print digit 

and subtract 10U0 from the number 
repeat until number is less than 1000 
point to next print digit 

number greeter then 1 ? 





SEQ 0230 
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077116 
077120 
077122 
077126 
077130 
077132 
077136 
077140 
077142 
077146 
077150 
077152 


077154 


077156 
077162 


077170 
077170 
077170 


077172 


002404 
105210 
162705 
000771 
005200 
020527 
002404 
005210 
162705 
000771 
005200 
150510 


000207 


103 
170 


104401 


000144 


000012 


000012 


127 
170 


40$: 
50$: 


60$: 


122 CWROUT: 
170 CWRN: 


ENOMOD 


Le 


SEQ 0231 


if not, branch 

else increment the print digit 

end subtract 100 from the number 
repeet until number is less then 100 
point to next print digit 

number greeter than 10 ? 

if not, branch 

else increment the print digit 

and subtrect 10 from the number 
repeet until number is less then 10 
point to next print digit 

save last digit 


L10065: 


TRAP CSETST 


Me 
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TEST 28 


- Direct Reed/write Test. 

. TITLE CLOSE SECTION 
077172 BGNMOD 
077172 $PATCH: : 
077172 .BLKW 300 
077772 .BLKB 400-< .&377> 
100000 LASTAD 
100000 100014 
100002 000004 
100004 LSLAST:: 
100004 E 


_— —_— - 


; SHIFT TO CORRECT FOR LSI BUG 


-EVEN 
-WORD TSFREE 
«WORD TSSIZE 


SEQ 0232 





— ——- —— ie ie ta 


N2 
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SEQ 0233 
TEST 28 - Direct Reed/write Test. 
9006 
9007 
9008 
9021 
9022 100004 BGNSE TUP 1 
9023 100004 BGNPTAB 
100004 000000 «WORD O 
100006 000002 -WORD L110070-./2-1 
100010 L10066: 
9024 100010 164200 000270 -WORD 164200,270 
9025 100014 ENDPTAB 
100014 110070: 
9026 100014 ENDSETUP 
9027 000001 -END 





| B3 





0221 Symbol teble 
* 002400 G 18 065163 CIGMAN® 000043 
* 010000 G BIBA CIGPHR= 000042 
026510 G BLOCK 072050 CIGPLO* 000030 
072034 BOE * 000400 G CIGPRI*® 000040 
ADFADD 002650 G BUF © 100000 G CHINIT* 000011 
002644 G BUFIN 023040 G CHINLP*® 000020 
ADFCOR 002642 G BUFOUT 00 CMANI® 000050 
ADFOBR 002646 G BURST = 004000 G COMEM = 000031 
030522 G BVALS 066542 CIMSG © 000023 
ADFSCR 002640 G HAN 072046 CHOPEN® 000034 
* 000020 G CHANGE 072036 COPNTB* 000014 
* 000100 G 032704 COPNTF® 000017 
072042 CHKMAX 024760 G CHPNTS* 000016 
0640 CLINT 032214 G COPNTX® , 
032234 CLKFLG 035132 C4QI0 » 000377 
ASKREG 075576 CHP ls G CHRDBU= 000007 
ASSEMB* 000010 CNSAVE 032070 COREFG* 
. G CNT25 026132 G CORESE® 000033 
003022 G CNT25M 026126 G COREVI® 
. G CNTSOO 026130 CORFLA® 000021 
* 001000 G CONS 076510 CORPT » 000025 
064147 CONT 033740 CHSEFG* 000046 
073105 COUT » 000400 G CESPRI® i 
036644 CRLF 026134 G CHSVEC* 000037 
* 000001 G CTA * 020000 G CHTPRI® 000013 
* 000001 G CTIME 002230 G DAC 026352 G 
* 000002 G * 030000 G DBE  * 000100 G 
* 000004 G 077162 oer os 
* 000010 G CwROUT 077156 DBFTAB 076664 
* 000020 G CsAU * 000052 » . 
* 000040 G CHAUTO* 000061 DETEX 027750 
* 000100 G CHBRK » 000022 DECIN 026710 G 
* 000200 G C8BSEG* 000004 DECINI 027471 
* 000400 G $85UB* 000002 N2 7 
* 001000 G CECEFG* 000045 DECINS 027610 
* 000002 G CECLCK*® 000062 EC 027 
* 002000 G CECLEA® 000012 DECOL 027756 
* 004000 G CICLOS* 000035 DECO2 027762 
* 010000 G CICLP1* 000006 DECOS 027766 
* 020000 G CICVEC* 000036 OEVi «075425 
* 040000 G CSOCLN* 000044 DEV2 075456 
* 100000 G Cs 000051 OFPTBL 002216 G 
* 000004 G CHORPT» 000024 DIAGMC © 
* 000010 G Cs0U * 000053 Olv 030072 G 
* 000020 G CHEDIT» 000003 OIvi 030102 G 
* 000040 G SEROF ® 000055 OMP1 =—s«O25$:74 
* 000100 G CHERMR® 000056 omm2 0256 
* 000200 G CHERRO* 000060 ons = 025744 
* 000400 G SERSF* 000054 Oompa «0260 
* 001000 G $ERSO* 000057 DROPD 035416 
064225 $ESCA* 000010 DROPED 002750 G 
064324 $€SEG* 000005 DRXADR 002632 G 
064401 CESUB* 000003 DAXCOR 002630 G 
| 064503 CHETST*® 000001 ORXDOR 002634 G 
CeExIT* 000032 DRXSCR 
064764 CIGETB* 000026 DRXVEC %6 G 
065061 CEGETW* 000027 0 * 000020 


rm ee = e 
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Symbol teble 
FCHIN 031006 G6 002522 LASTFA 026350 
FNCTO = 000001 G G7? 002544 LASTV 072044 
| FNCTL = 000002 G G8 002566 LCHIN 031010 
/ FNCT2 = 000004 G HOE V 074712 LCLOCK 034372 
'FNCTS = 000010 G HOIV 030310 LOEV 074714 
FSTCHN 002224 G HEL LOIV 030312 
FVAL 003034 G HELP «= LF 026156 
FVALQ 023236 G HMUL 030314 LMUL 030316 
FsAU * 000015 HOE * 100000 G LOE * 040000 G 
FSAUTO= 000020 HPNR1 032134 LOT # 000010 G 
F$BGN « HPNR2 032136 LRES 030070 
FSCLEA= 000007 HPPS1 031442 LSTCHN 226 G 
FsOU = 000016 HPSAVE 032024 LTOL1 074704 
FSEND = 000041 HRES 030066 LTOL2 074706 
FSHARD= 000004 IBE # 010000 G Lsace 002110 G 
FeHW = 000013 Iou * 000040 G LSAPT 002036 G 
FSINIT= 000006 Ie * 000100 G LSAU 035450 G 
FSUMP = 000050 I * 020000 G LSAUT 002070 G 
FSMOD = 000000 IEXADD 032022 G LSAUTO 035204 G 
FéMSG = 000011 IEXBCR= 000014 Lscce 002106 G 
FSPROT= 000021 IFXBOR= 000012 LSCLEA 035266 G 
FSsPWR = 000017 IEXCSR= 000010 L$co 002032 G 
FSRPT = 900012 IEXICR= 000004 LSDEPO 002011 G 
FSSEG = 000003 IEXIOR= 000006 LSDESC 023212 G 
FSSOFT= IEXIIR= 000002 LSOESP 002076 G 
FSSRV = 000010 IEXIN 031016 G LSDEVP 002060 G 
FsSUB = 000002 IEXISR= LSOISP 002124 G 
= 9000014 IEXMCR= 16 LSOLY 002116 G 
FSTEST= 000001 INIUVUT 033770 LsoTeP 002040 G 
027361 INOUT = 040000 G LSOTYP 002034 G 
. 1G INSERT 026306 G L$0u 035362 G 
INT 032216 G L 002072 G 
003020 INTFLG 002772 G LS8OVTY 023202 G 
GSCNTO= INT1 032224 G LSer 002052 G 
GSDELM* 000372 I * 000100 G LSENVI 002044 G 
Gs8DISP= 000003 ITRCNT 003032 G LSeTe 002102 G 
GSEXxCP= 000400 IXE * 004000 G LSExXP) 002046 G 
GSHILI* 000002 Isau = 000041 LSExXP4 002064 G 
Gt_OLI= 000001 TSAUTO= 000041 LSexPs G 
* 000000 ISCLN = 000041 LSHARD 002 G 
GSOFFS= Is0u = 000041 LSHIME 002120 G 
GSOFSI* 000376 $ * 000041 LSHPCP 002016 G 
GSPRMA= 000001 ISINIT* 000041 LSHPTP 002022 G 
GSPRMD= IsMOD = 000041 L Sh 002216 G 
GSPRML= 000000 I8MSG = 000041 LsIce G 
$RADA> 000140 IsPROT= LSINIT 033532 G 
$RADB= 000000 IsPTAB= 00004) L SL ADP 
$RADD= IsPwR = 000041 LSLAST 100004 G 
$RADL*® 000120 IsRPT = 000041 L$LOAD 002100 G 
RADO= I8SEG = 00004) LSLUN 002074 G 
$XFER= 000004 IsSETU= 000041 LSMREV 002050 G 
$VYES = 000010 I8SFT = 00004) LSNAME 002000 G 
1 002262 IsSRV = 00004] LSPRIO 002042 G 
002302 4 * 000041 LSPROT 033524 G 
jG3 IsTsT «= LSPRT 002112 G 
Ge 002436 JtJMP = 000167 LSREPP 002062 G 
GS 002453 KLINT 034506 LSREV 002010 G 


La 


032234 G 
002334 G 





MAINT = 010000 G 
MET = 000002 G 
MNT = 001000 G 
MODE 003026 G 
MSG26 072744 
PUL 027776 G 
MUL 1 030006 G 
NCHANS 066540 
ONS 031012 
NERRS 
NEWST 033730 
NEX * G 
NH * 000035 
NO 033516 
NOCL OK 


OCTOUT 023341 G 

OFF * 020000 G 

ONEFIL= 000001 

OPBARL O 

OPCWR 076272 

OPOBF 076122 
076020 


003024 G 


030000 G 
PFLAG) 002774 G 


— ee 





SEQ 
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—_——— le ie 6 ee 


D3 


CLOSE SECTION MACRO VOS.00 Friday 01-Feb-85 08:58 Page 109-3 


hese ean 
| PM2S0 066746 SFPTBL 002224 G TSHD27 074757 G 
PNT * 001000 G SNUM 027346 TSHD28 076734 G 
PREX 032700 STAFLG 003030 G TSHDO3 037344 G 
PRI * 002000 G START 033532 TSHD4 040156 G 
PRIOO = 000000 G STAT 032514 TSHOS 041016 G 
PRIO1 = 009040 G STATO = 000400 G TSHD6 041734 G 
PRIO2 = 000100 G STATI = 001000 G TSHD7 042534 G 
PRIO3 = 000140 G STAT2 = 000 G TSHD8 043452 G 
PRIO4 «= STATS = 004000 G TSHD9 044310 G 
PRIOS = 000240 G SVAL 003036 G TSNS24 064066 G 
PRIO6 = 000300 G SVALQ 023270 G TSNS25 0666 
PRIO7 = 000340 G SVCGBL= 0%0000 T 072141 G 
PR1i 033112 SVCINS= 000001 TSNS27 075034 G 
PRE 033133 SVCSUB= 000001 TSNS28 076772 
PR2A 033247 SVCTAG= 000001 TT 033004 
PR 033303 SVCTST= 000001 TTINT 034776 
PR3A 033401 S$LSYM= 010000 TS$ARGC* 000001 
PRO 033440 TABEND 076734 TSCODE= 000032 
PRS 033471 TADS 032714 TSERRN= 005217 
PWRFL 033756 TIMMSG 035134 TSEXCP= 000000 
QFLAG1 003014 G TITLE 032346 TSFLAG= 000040 
QFLAG2 003016 G TKB «# 177562 TSFREE= 100014 
002234 G TS = 177560 T$GMAN= 
RA 032200 G TNUM 033106 TS$HILI* 177777 
RANDOM 032142 G TOL 002232 G T$LAST= 000001 
RB 032202 G TPB «= 177566 TéLOLI« 
ROUMP 002236 G TPS «= 177564 T$LSYM= 010000 
ROY = G TSHD1 035700 G TSL TNO= 
REG 076512 TSHD10 5214 G TSNEST® 177777 
REGO 077047 TSHO11 G T$NSO = 000000 
REGTAB 076520 T 12 047162 G T$NS1 = 000001 
Ss -s. T 13 050130 G Té¢NS2 = 000003 
RTSTRT 033712 TSHD14 051252 G TSPCNT= 000000 
RET 03 TSHO1S 052 G TS$PTAB= 010067 
RFLG 032712 TSHD16 053232 G 1$PTHV= 000001 
023323 G TSHO17 02 G TSPTNU= 000001 
RS 025542 TSHO18 055414 G TSSAVL* 177777 
2 G TSHD19 056632 G TS$SEGL* 177777 
SAVCNT 035050 TSHD2 036367 G TS$SEKO= 010004 
SBE = 000010 G TSHD20 057756 G TéSIZE= 
ser G TSHD21 060722 G TS$SUBN= 
SCRTAB 076614 TSHD22 06: G TSTAGL* 177777 
SETCLK O TSHD23 062544 G TSTAGN= 010071 
SETCWR 077054 TSHD24 064036 G TSTEMP= 
SETEX 035130 TSHO25 066572 G TSTEST= 000034 
SETTAB 030320 G T 072100 G TS$TSTM= 177777 
- ABS. 100014 000 )0=—s (RW, 1, GBL , ABS ,OVR) 
000000 001 (RW, I,LCL,REL,CON) 


rrors detected: 0 

eee Assembler stetistics 
Work file reeds: 255 
Work 


file writes: 255 
Size of work file: 29808 Words ( 117 Pages) 





TS$TSTS= 
TS$AU = 
T$$AUT= 
TS$$CLE= 
TS$DAT= 
T$$0U = 
T$$HAR= 
TS$HW = 
T$$INI= 
T$$MSG= 
T$$PC = 
T$$PRO= 
TS$PTA= 
TS$RPT= 
T$$SEGe 


T$$SOF= 0 


T$$SRV= 
T$$SW = 
TS$TES= 
T1 


T10 
TLOTAB 
Til 
TLIITAB 


T12 
T1I2TAB 


S 
$ 
z 
QQ HOO OO OF OO O © O oO 


DHAOHHAAAAAHA 


UNITS 034250 
UPSW 074710 
USCLOK 


WAIT = 010000 G 
woo 38 =:~002000 G 
WCR1 = 000400 

WCR2 = 001400 G 


WROYL 026212 
Wt 026120 
wT2s5 026114 G 
WT25M 026100 G 
WT500 


YE 033512 
SPATCH 077172 G 


SEQ 


° |e 
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mee table 


| seo 
| | Size of core pool: 19990 Words ( 76 Pages) 


1224 


Operating system: RSX-11M/PLUS 


Elepsed time: 00:16 
SAPDL AAFOLy SPoise. OS SSvCTR., (7,106 JAAFO1.SRC 





